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PREFACE. 

This publication provides customer 
engineers and other technical personnel 
with information describing the internal 


organization and operation of the FORTRAN 
IV (G) compiler. It is part of an inte- 
grated library of IBM System/360 Operating 
System Program Logic Manuals. Other publi- 
cations required for an understanding of 
the FORTRAN IV (G) compiler are: 


IBM System/360 Operating System: 


Introduction to Control Program Logic, 
Program Logic Manual, Form Y28-6605 


FORTRAN IV_ (G and _H) Programmer's Guide, 


Form C28-6817 


Any reference to a Programmer's Guide 
in this publication applies to FORTRAN 


Form 
C28-6817. The FORTRAN IV (G) Program- 
mer'’s Guide, Form C28-6639, (to which 
references may exist in this publica- 
tion) has been replaced by the combi- 


ned G and H Programmer's Guide. 
Although not required, the following 


publications are related to this publica- 
tion and should be consulted: 


IBM System/360 Operation System: 


Sequential Access Methods, Program Logic 
Manual, Form Y28-6604 


RESTRICTED DISTRIBUTION: 
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Linkage Editor, Program Logic Manual, 
Form Y28-6610 


System Generation, Form C28-6554 


This 
sections: 


publication consists of two 


Section 1 is an introduction that 
describes the FORTRAN IV (G) compiler as a 


whole, including its relationship to the 
Operating system. The major components of 
the compiler and relationships among them 


are also described in this section. 


Section 2 consists of a discussion of 
compiler operation. Each component of the 
compiler is described in sufficient detail 
to enable the reader to understand its 
operation, and to provide a frame of 
reference for the comments and coding supp- 
lied in the program listing. Common data 
such as tables, blocks, and work areas is 
discussed only to the extent required to 
understand the logic of each component. 
Flowcharts are included at the end of this 
section... 


Following Section 2, are appendixes that 
contain reference material. 


If more detailed information is 
required, the reader should see the com- 
ments, remarks, and coding in the FORTRAN 
IV (G) program listing. 


This publication is intended primarily for use 
by IBM personnel involved in program design and maintenance. 


It may not 


be made available to others without the approval of local IBM management. 
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This section contains general informa- 
tion describing the purpose of the FORTRAN 
IV (G) compiler, the minimum machine confi- 
guration required, the relationship of the 
compiler to the operating system, compiler 
design and implementation, and compiler 
output. The various rolls,1 variables, 
registers, pointers, and drivers used by 
the compiler are also discussed. 


PURPOSE OF THE COMPILER 


The IBM System/360 Operating System 
FORTRAN IV (G) compiler is designed to 
accept programs written in the FORTRAN IV 
language as defined in the publication IBM 


System/ 360: FORTRAN IV Language, Form 
C28-6515. 


The compiler produces error messages for 
invalid Statements, and, optionally, a 
listing of the source module, storage maps, 
and an object module acceptable to _ the 
System/360 Operating System linkage editor. 


MACHINE CONFIGURATION 


The minimum system configuration 
required for the use of the IBM System/360 
Operating System with the FORTRAN IV (G) 
compiler is as follows: 


e An IBM System/360 Model 40 computer 
with a storage capacity of 128K bytes 
and ae standard and floating-point 
instruction set. 


e A device for operator communication, 
such as an IBM 1052 Keyboard Printer. 


e At least one direct-access device 
vided for system residence. 


pro- 


COMPILER AND SYSTEM/360 OPERATING SYSTEM 


The FORTRAN IV (G) compiler is a proces- 
sing program of the IBM System/360 


1Most of the tables used by the compiler 

are called rolls. (Further explanation of 
rolls is given in “Rolls and Roll 
Controls.) 
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Operating System. AS a processing program, 
the compiler communicates with the control 
program for input/output and other ser- 
vices. A general description of the con- 
trol program is given in the publication 
IBM System/360 Operating System: Introduc- 


tion to Control Program Logic, Program 


SS SD a CR EE CE ED CS SS EE IE oy ee oe 


Logic Manual. 


A compilation, or a batch of compila- 
tions, is requested using the job statement 
(JOB), the execute statement (EXEC), and 
data definition statements (DD). Alterna- 
tively, cataloged procedures may be used. 
A discussion of FORTRAN IV compilation and 
the available cataloged procedures is given 
in the publication IBM System/360 Operating 


System: FORTRAN IV (G) Programmer's Guide. 
The compiler receives control initially 
from the calling program (e.g., job sche- 


duler or another program that CALLS, LINKs 
to, or ATTACHes the compiler). Once the 
compiler receives control, it uses the QSAM 
access method for all of its input/output 
operations. After compilation is  com- 
pleted, control is returned to the calling 
program. 


COMPILER DESIGN 


The compiler will operate within a total 
of 80K bytes of main storage. This figure 
includes space for the compiler code, data 
Management access routines, and sufficient 
working space to meet other storage 
requirements stated throughout this 
publication. 


Any additional storage available is used 
as additional roll storage. 


LIMITATIONS OF THE COMPILER 


The System/360 Operating System FORTRAN 
IV (G) compiler and the object module it 
produces can be executed on all System/360 
models from Model 40 and above, under 
control of the operating system control 
program. All input information must be 
written in either BCD or EBCDIC representa-— 
tion. The compiler is designed to process 
all properly written programs so that the 
object code produced by the compiler is 
compatible with the existing mathematical 
library subroutines. 
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If ten source read errors occur during 
the compilation, or if it is not possible 
to use SYSPRINT, the operation of the 
compiler is terminated. The operation of 
the compiler is also limited by the availa- 
bility of main storage space. The compila- 
tion is terminated if: 


e The roll storage area is exceeded 


e Any single roll exceeds 64K bytes, 
thereby making it unaddressable 


e The WORK or EXIT roll exceeds its 
allocated storage 


Note: If any of these conditions occur 
during the first phase of the compilation, 
the statement currently being processed may 
be discarded; in this case, the compilation 
continues with the next statement. 


COMPILER IMPLEMENTATION 


The primary control and processing rou- 
tines (hereafter referred to as “POP rou- 
tines" or “compiler routines") of the com- 
piler are primarily written in machine- 
independent pseudo instructions called POP 
instructions. ; 


Interpretation of the pseudo instruc- 
tions is accomplished by routines written 
in the System/360 Operating System assembl- 
er language. These routines (hereafter 
referred to as "POP subroutines") are an 
integral part of the compiler and perform 
the operations specified by the POP ins- 
tructions, e.g., saving of backup informa- 
tion, maintaining data indicators, and gen- 
eral housekeeping. 


Control of the compiler operation is 
greatly affected by source language syntax 
rules during the first phase of the compil- 
er, Parse. During this phase, identifiers 
and explicit declarations encountered in 
parsing are placed in tables and a lish 
notation form of the program is produced. 
(For further information on Polish nota- 
tion, see Appendix Cc, "Polish Notation 
Formats.") 
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The compiler quite frequently uses’ the 
method of recursion in parsing, analysis, 
and optimization. All optimizing and code 
generating routines, which appear in later 
phases, operate directly on the tables and 
Polish notation produced by Parse. 


The compiler is also designed so that 
reloading of the compiler is unnecessary in 
order to accomplish multiple compilations. 


POP LANGUAGE 


The FORTRAN IV (G) compiler is written 
in a combination of two languages: the 
System/360 Operating System assembler lan- 
guage, which is used where it iS most 
efficient, and the POP language. 


The POP language iS a mnemonic macro 
programming language whose instructions 
include functions that are frequently per- 
formed by a compiler. POP instructions are 
written for assembly by the System/360 
Operating System assembler, with the POP 
instructions defined as macros. Each POP 
instruction is assembled as a pair of 
address constants which together indicate 
an instruction code and an operand A 
statement or instruction written in the POP 
language is called a POP. The POP instruc- 
tions are described in Appendix A. 


COMPILER ORGANI ZATION 


The System/360 Operating System FORTRAN 


IV (G) compiler is composed of a control 
phase, Invocation, and five processing 
phases (see Figure 1): Parse, Allocate, 


Unify, Gen, and Exit. The operating system 
names for these phases are, respectively, 
IEYFORT, IEYPAR, IEYALL, IEYUNF, IEYGEN, 
and IEYEXT. (The first level control and 
second level processing compiler routines 
used in each phase are shown in Figure 2.) 
In addition, Move is a pre-assembled work 
area, IEYROL. 
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Control Phase: Invocation (IEYFORT) 


The Invocation phase (IEYFORT) is loaded 
upon invocation of the compiler and remains 
in core storage throughout compilation. It 
is entered initially from the calling pro- 
gram, from each module at the end of its 
processing, and from Exit after compilation 
is complete. 


At the initial entry, the Invocation 
phase initializes bits in IEYFORT1 from the 
options specified by the programmer for the 
compilation, opens data sets, and fetches 
the modules IEYPAR, IEYALL, IEYUNF, IEYGEN, 
and IEYEXT via a series of LOAD macro 
instructions. These modules remain in core 
Storage for a series of main program and 
Subprogram compilations unless it is deter- 
mined that additional space required for 
tables is not available. When this occurs, 
modules that precede the active one are 
deleted, and compilation is resumed. If 
more space is required, modules that follow 
the currently active one are deleted. 


When a module completes processing, it 
returns to IEYFORT, which ensures the pre- 
sence of the next module and transfers to 
it. During initialization for a _ subpro- 
gram, IEYFORT ensures that all modules are 
loaded. 


The last entry is made from the Exit 
phase at the completion of a compilation. 
When the entry is made from Exit, the 
Invocation phase checks for multiple compi- 
lations. If another compilation is 
required, the compiler is reinitialized and 
the main storage space allocated for the 
expansion of rolls is assigned to the next 
compilation; otherwise, control is returned 
to the calling program. 


To ieneiemsitnmmnemsieeeen einem aiaemnmesine acide aethmanentemennateesamimamaieteceatnemnt 


Parse accepts FORTRAN statements in card 
format from SYSIN and scans these to pro- 
duce error messages on the SYSPRINT data 
set, a source module listing (optional), 
and Polish notation for the program. The 
Polish notation is maintained on internal 
tables for use by subsequent phases. In 


addition, Parse produces the roll entries 
defining the symbols used in the source 
module. 
Phase 2: Allocate (IEYALL) 

Allocate, which operates immediately 


after Parse, uses the roll entries produced 
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by Parse to perform the storage allocation 
for the variables defined in the source 
module. The addressing information thus 
produced is then left in main storage to be 
used by the next phase. 


The ESD cards for the object module 
itself, COMMON blocks and subprograms, and 
TXT cards for NAMELIST tables, literal 
constants and FORMAT statements are pro- 
duced by Allocate on the SYSPUNCH and/or 
SYSLIN data sets. Error messages for 
COMMON and EQUIVALENCE statements, unclosed 
DO loops and undefined labels are produced 
on SYSPRINT; on the MAP option, maps of 
data storage are also produced. 


Phase 3: Unify (IEYUNF) 


The Unify phase optimizes the 
general registers within DO loops by 
operating on roll data which describes 
array references. The optimization applies 
to references which include subscripts of 
the form ax+tb, where a and b are positive 
constants and x iS an active induction 
variable (that is, *x 1s a DO-controlled 
variable and the reference occurs within 
the DO loop controlling it), and where’ the 
array does not have any adjustable dimen- 
sions. The addressing portion of the 
object instruction for each such array 
reference is constructed to minimize the 
number of registers used for the reference 
and the number of registers which must _ be 
changed as each induction variable changes. 


usage of 


Phase 4: Gen (IEYGEN) 


Gen uses the Polish notation produced by 
Parse and the-:memory allocation information 
produced by Allocate. From this informa- 
tion, Gen produces the code, prologues, and 
epilogues required for the object module. 
In order to produce the object code, Gen 
resolves labeled statement references 
(i.e., a branch target label) and subpro- 
gram entry references. 


The final output from Gen is a complete 
form of the machine language code which is 
internally maintained for writing by the 
Exit phase. 


Phase 5: Exit (IEYEXT) 


Exit, which is the last processing phase 
of the compiler, produces the TXT cards for 
the remaining portion of the object module, 
the RLD cards (which contain the relocat- 
able information), and the END card. This 
output is placed optionally on the SYSLIN 
data set for linkage editor processing 
and/or SYSPUNCH if a ecard deck has been 
requested. Additionally, a listing of the 
generated code may be written on the SYS- 
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PRINT data set in a format similar to that 
produced by an assembly program. 


ROl1l (LEYROL) 


Roll contains static rolls and roll 
information always required for compiler 
operations. These are described under the 


heading "Rolls and Roll Controls" later in 
this section. 
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COMPILER STORAGE CONFIGURATION 


Figure 3 illustrates the relative posi- 
tions, but not the relative sizes of the 
component parts of the FORTRAN compiler as 
they exist in main storage. The component 
parts of each phase are described in Sec- 
tion 2. 


COMPILER OUTPUT 


The source module(s) to be compiled 
appear as input to the compiler on the 
SYSIN data set. The SYSLIN, SYSPRINT, and 


SYSPUNCH data sets are used (depending on 
the options specified by the user) to 
contain the output of the compilation. 


The output of the compiler is repre- 
sented in EBCDIC form and consists of any 
or all of the following: 


Object Module (linkage editor input) 
Source Module listing 

Object Module listing 

Storage maps 

Error messages (always produced) 
Relocatable card images for punching 
overall data flow and the data sets 
used for compilation are illustrated in 


Figure 4. The type of output is determined 
by compile time parameters. 


The 
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Figure 4. Compiler Output 
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OBJECT MODULE 


The configuration of the object module 
produced by the FORTRAN IV (G) compiler is 
Shown in Figure 5. 


Entry point--->  iicaleree Saale cemics aan 7 
| Heading | 
}--------------------- { 
|Save area | 
Se ee a ee ee ee z 
}Base table | 
ee eee engl Pe mee J 


ee ee a oe ee ee ee ce 0 ee ee es ee es 


}--------------------- { 
| Arrays | 
}--------------------- 4 
]Subprogram argument § | 
J}lists 
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ee OES ED ce ED ee OE ED RR EE ee ee eee ee ee eee ee ee aoe ee 


<a ee ee ee ee ee ee ee ee ee ee a ee ee 


jLiteral constants 

|} (except those used 
jin DATA and PAUSE 

| statements) 


|Temporary storage 
jand constants 


Figure 5. Object Module Configuration 


Components of the Object Module 


The following paragraphs describe the 
components of the object module produced by 
the FORTRAN IV (G) compiler. 


HEADING: The object module heading 
includes all initializing instructions 
required prior to the execution of the body 
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of the object module. Among other func- 
tions, these instructions set general 
register 13 (see “Object Module General 
Register Usage") and perform various opera- 
tions, depending on whether the program is 
amain program or a esubprogram and on 
whether it calls subprograms. (See “Code 
Produced for SUBROUTINE and FUNCTION 
Subprograms."™) 


SAVE AREA: The 


Save area, at maximum 72 
bytes long, is reserved for information 
saved by called subprograms. Figure 6 
shows an example of the use of this area in 
program Y, which is called by program xX, 
and which calls program Z. 


The first byte of the fifth word in the 
Save area (Save Area of Y + 16) iS set to 
all ones by program Z before it returns to 
program Y. Before the return is made, all 
general registers are restored to their 
program Y values. 


BASE TABLE: The base table is a list of 
addresses from which the object module 
loads a general register prior to accessing 
data; the general register is then used as 


a base in the data referencing instruction. 


Because an interval of 4096 bytes of 
storage can be referenced by means of the 
machine instruction D field, consecutive 
values representing a single control sec- 
tion in this table differ from each other 
by at least 4096 bytes. Only one base 
table entry 1s constructed for an array 
which exceeds 4096 bytes in length; hence, 
there is a possibility that an interval of 
more than 4096 bytes exists between conse- 
cutive values for a single control section 
in the table. 


The addresses compiled into this table 
are all relative, and are modified by the 
linkage editor prior to object module 
execution. Those entries constructed for 
references to COMMON are modified by the 
beginning address of the appropriate COMMON 
block; those entries constructed for 
references to variables and constants 
within the object module itself are modi- 
fied by the beginning address of the appro- 
priate object module. 
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Figure 6. Example of Use of Save Area 


BRANCH _ TABLE: This table contains one 
fullword entry for each branch target label 
(a label referred to in a branch statement) 
and statement function in the _ source 
module. In addition, one entry occurs for 
each label produced by the compiler in 
generating the object module. These labels 
refer to return points in DO loops and to 
the statement following complete Logical IF 
Statements, and are called made labels. 


In the object module code, any branch is 
performed by loading general register 14 


(see “Object Module General Register 
Usage") from this table, and using a BCR 
instruction. The values placed in this 
table by the compiler are relative ad- 
dresses. Each value is modified by the 
base address of the object module by the 


linkage editor. 


EQUIVALENCE VARIABLES: This area of the 
object module contains unsubscripted 
variables and arrays, listed in EQUIVALENCE 
sets which do not refer to COMMON. 


SCALAR __VARIABLES: All non-subscripted 
variables which are not in COMMON and are 


not members of EQUIVALENCE sets 
this area of the object module. 


appear in 


ARRAYS: All arrays which are not in 
COMMON, and are not members of EQUIVALENCE 
sets appear in this area of the object 
module. 
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| <---Stored by initial entry code 
<---Stored by program Y 


<---Stored by program Z, if it calls subroutines 


Values on leaving program Y, stored by program Z. 
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SUBPROGRAM ARGUMENT LISTS: 


SUBPROGRAM ADDRESSES: 
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This portion of 
the object module contains the addresses of 
the arguments for all subprograms called. 
In calling a subprogram, the object module 
uses general register 1 to transmit a 
location in this table. The subprogram 
then acquires the addresses of its argu- 
ments from that location and from as many 
subsequent locations as there are argu- 
ments. The sign bit of the word containing 
the address of the last argument for each 
subprogram is set to one. 


This list contains 
one entry for each FUNCTION or SUBROUTINE 
subprogram referenced by the object module. 
The entry will hold the address of that 
Subprogram when it is supplied by the 
linkage editor. The compiler reserves the 
correct amount of space for the list, based 
on the number of subprograms referred to by 
the source module. 


NAMELIST TABLES: For each NAMELIST name 
and DISPLAY statement in the source module, 
a NAMELIST table is constructed by the 
compiler and placed in this area of the 
object module. Each table consists of one 
entry for each scalar variable or array 
listed following the NAMELIST name or in 
the DISPLAY statement, and begins with four 
words of the following form: 
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where the name field contains the NAMELIST 
name, right justified. For the DISPLAY 
Statement, the name is DBGnn#, where nn is 
the number of the DISPLAY statement within 
the source program or subprogram. 

Table entries for scalar variables have 
the following form: 





where: 


name field 
contains the name of the Scalar vari- 
able, right justified. 


address field | 
contains the relative address of the 
variable within the object module. 


type field 
contains zero tO indicate a scalar 
variable. 
mode field 
contains the mode of the variable, 
coded as follows: 
= Logical, 1 byte 
= Logical, fullword 
= Integer, halfword 
= Integer, fullword 
= Real, double precision 


Real, Single precision 
Complex, double precision 
Complex, Single precision 
Literal (not currently 
compiler-generated) _ 


FPoOMAYAU FWNh 


Hout ow Al 


NAMELIST table 


entries for arrays have 
the following form: | 
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| 

] 

| 

| 

| 

| 

| 

| Jindica-|first dimension factor | 
] iS) jtor | field | 
| |-------}----------------------- { 
| jnot |second dimension factor} 
| 6 |used |field | 
| }-----~-}----------------------- { 
1 Jnot Jthird dimension factor |} 
] 7 | used |field | 
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. ; | 
| : : | 
- ; | 
| etc. etc. | 
Et Pf ap Seo aay bee ee gen a Resp Ws Nesey ede 4 
where: 


name field 
contains the name of the array, 
justified. 


right 


address field 


contains the relative address of the 
beginning of the array within the 
Object module. 

mode field 
contains the mode of the array ele- 
ments, coded as for Scalar variables, 
above. 

no. dimens. 
contains the number of dimensions in 


the array; this value may be 1-7. 


length field 
contains the length of the array 
ment in bytes. | 


ele- 


indicator field 
is set to zero if the array has been 
defined to have variable dimensions; 
Otherwise, it is set to nonzero. 


first dimension factor field | 
contains the total size of the array 
in bytes. 


second dimension factor field 

contains the address of the second 

multiplier for the array (n1*L, where 

ni is the size of the first dimension 

in. elements, and Lis the number of 
bytes per element). | 
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third dimension factor field 


contains the address of the third 
multiplier for the array (n1¥*n2*L, 
where ni is the size of the first 


dimension in elements, n2 is the size 
of the second dimension, and Lis’ the 
number of bytes per element). 


A final entry for each NAMELIST table is 
added after the last variable or array name 
to signify the end of that particular list. 


This entry is a $fullword in length and 
contains all zeros. 
LITERAL CONSTANTS: This area contains a 


Se RE NN RED CENTS NE NY NS NE SENS SEND “ON ERE SINE en EEITES 


list of the literal constants used in the 
source module, except for those specified 
in DATA and PAUSE statements. 

FORMAT STATEMENTS: The FORMAT statements 
specified in the source module are con- 
tained in this area of the object module. 
The statements are in an encoded form in 
the order of their appearance in the. source 
module. (See “Appendix D: Code Produced 
by the Compiler.") Tne information contains 
all specifications of the statement but not 
the word FORMAT. 


TEMPORARY STORAGE AND CONSTANTS: This area 
always begins on a double precision boun- 
dary and contains, in no specific order, 
the constants required by the object module 
code and the space for the storage of 
temporary results during computations. Not 
all of the source module constants neces- 
Sarily appear in this area, since as many 
constants as possible are used as immediate 
data in the code produced. Some constants 
may appear which are not present in the 
source module, but which have been produced 


by the compiler. 


PROGRAM TEXT: 


Meme imam SEIS nai Chto SR Mee SHEE Semcon Greene ines Cae SOLO, 


If the object module con- 
tains statement ‘functions, the code for 
these statements begins the program text 
and is preceded by an instruction that 
branches around them to the first execut- 
able statement of the program. (See 
"Statement Functions" in Appendix D for 
further explanation of this code.) Follow- 
ing the code for the statement functions is 
the code for the executable statements of 
the source module. 


Object Module General Register Usage 


The object module produced by the 
FORTRAN IV (G) compiler uses the System/360 
general registers in the following way: 

Register 0: Used as an accumulator. 


Register 1: Used aS an accumulator and 


to hold the beginning address of the 
argument list in branches to sub- 
programs. 
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Register 2: Used as an accumulator. 


Register 3: Used as an accumulator. 


Registers 4 through 7: Contain index 
values as required for references to 
array variables, where the subscripts 
are linear functions of DO variables and 
the array does not have variable 
dimensions. 


Registers 8 and 9: Contain index values 
as required for references to array 
variables, where the subscripts are of 
the form x+c, where x is a non DO- 
controlled variable and c is a constant. 


Register 9: Contains index values as 
required for references to array 
variables where the subscripts are non- 


linear of the form I*J, where I and J 
are the variables. 


Registers 10 through 12: Contain base 
addresses loaded from the base table. 


Register 13: Contains the beginning 
address of the object module save area; 
this value is loaded at the beginning of 
program execution. Register 13 is also 
used for access to the base table, since 
the base table follows the save area in 
main storage. 


Register 14: Contains the return 
address for subprograms and holds’ the 
address of branch target instructions 
during the execution of branch 
instructions. 


Register 15: Contains the entry point 
address for subprograms as they are 
called by the object module. 


SOURCE MODULE LISTING © 


The optional source module listing is a 
symbolic listing of the source module; it 
contains indications of errors encountered 
in the program during compilation. The 
error message resulting from an erroneous 
Statement does not necessarily cause ter- 
mination of compiler processing nor the 
discarding of the statement. Recognizable 
portions of declaration statements are 
retained, and diagnosis always proceeds 
until the end of the program. 


OBJECT MODULE LISTING 


The optional object module listing uses 
the standard System/360 Operating System 








assembler mnemonic operation codes and, 
where possible, refers to the symbolic 
variable names contained in the _ source 
module. Labels used in the source module 
are indicated at the appropriate places in 
the object code listing. 


STORAGE MAPS 


The optional storage map consists of six 
independent listings of storage informa- 
tion. Each listing specifies the names and 
locations of a particular class of vari- 
able. The listings are: 

¢ COMMON variables 

e EQUIVALENCE variables 

e Scalar variables 


e Array variables 


NAMELIST tables 
e FORMAT statements 


A list of the subprograms called is also 
produced. 


ERROR MESSAGES 


Errors are indicated by listing the 
statement in its original form with the 
erroneous phrases or characters undermarked 
by the dollar sign character, followed by 
comments indicating the type of the error. 
This method is described in more detail in 
“Phase 1 of the Compiler: Parse (IEYPAR)." 


Common Error Messages 


The message NO CORE AVAILABLE is pro- 
duced (through IEYFORT) by all phases of 
the compiler when the program being com- 
piled exhausts the main storage space 
available to the compiler. This message is 
produced only when the PRESS MEMORY routine 
cannot provide unused main storage space on 
request from the compiler. 


The message ROLL SIZE EXCEEDED is pro- 
duced (through the Invocation phase, 
IEYFORT) by all phases of the compiler when 


the size of any single roll or rolls is 
greater than permitted. The following cir- 
cumstances cause this message to be 
produced: 


Section 1: 





e The WORK roll exceeds the fixed storage 
Space assigned to it. 


e The EXIT roll exceeds the fixed storage 
Space assigned to it. 


e Any other roll, with the exception of 
the AFTER POLISH roll and the CODE 
roll, exceeds 64K bytes of storage. In 
this case, the capacity of the ADDRESS 
field of a pointer to the roll is 
exceeded and, therefore, the informa- 
tion on the roll is unaddressable. The 
AFTER POLISH and CODE rolls are 
excepted, since pointers to these rolls 
are not required. 


The compilation terminates following the 
printing of either of these messages. 


COMPILER DATA STRUCTURES 


The POP language is designed to manipul- 
ate certain well-defined data structures. 


Rolls, which are the tables primarily 
used by the compiler, are automatically 
handled by the POP instructions; that is, 
when information is moved to and from 
rolls, controls indicating the status of 
the rolls are automatically updated. 


Items (variables) with fixed structures 
are used to maintain control values for 
rolls, to hold input characters being pro- 
cessed, and to record Polish notation, etc. 
These item structures are also handled 
automatically by the POP instructions. 


The arrangement of the parts of the 
compiler is significant because of the 
extensive use of relative addressing in the 
compiler. General registers are used to 
hold base addresses, to control some rolls, 
and to assist in the interpretation of the 
POP instructions. 


ROLLS AND ROLL CONTROLS 


Most of the tables employed by the 
compiler are called rolls. This term de- 
scribes a table which at any point in time 
occupies only as much storage as is 
required for the maximum amount of informa- 
tion it has held during the present compi- 
lation (exceptions to this rule are noted 
later). Another distinctive feature of a 
roll is that it is used so that the last 
information placed on it is the first 
information retrieved -- it uses a “push 
up” logic. , 
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With the exception of the WORK and EXIT 
rolls, the rolls of the compiler are main- 
tained in an area called the roll storage 


area. The rolls in this area are both 
named and numbered. While the references 
to rolls in this document and in the 


compiler comments are primarily by name, 
the names are converted to corresponding 
numbers at assembly time and the rolls are 
arranged in storage and referred to by 
number. 


If the roll storage area is considered 
to be one block of continuous storage, the 
rolls are placed in this area in ascending 
sequence by roll number; that is, roll 0 
begins at the base address of the roll 
storage area; rolls 1, 2, 3, etc., follow 
roll zero in sequence, with the roll whose 
number is largest terminating the roll 
storage area. 


Initially, all rolls except roll 0O are 
empty and occupy no space; this is accomp- 
lished by having the beginning and end of 
all rolls located at the same place. (Roll 
O, the LIB roll, is a fixed-length roll 
which contains all of its data initially.) 
When information is to be placed on a roll 
and no space is available due to a conflict 
with the next roll, rolls greater in number 
than the roll in question are moved down 
(to higher addresses) to make the space 
available. This is accomplished by physic- 
ally moving the information on the rolls a 
fixed number of storage locations and alt- 
ering the controls to indicate the change. 
Thus, roll 0O never changes in size, loca- 
tion, or contents; all other rolls expand 
to higher addresses as required. When 
information is removed from a roll, the 
Space which had been occupied by that 
information is left vacant; therefore, it 
is not necessary to move rolls for each 
addition of information. 


With the exception of the area occupied 
by roll 0, the roll storage area actually 
consists of any number of non-contiguous 
blocks of 4096 bytes of storage. The space 
required for roll O is not part of one of 
these blocks. Additional blocks of storage 
are acquired by the compiler whenever cur- 
rent roll storage is exceeded. If the 
system is unable to fulfill a request for 
roll storage, the PRESS MEMORY routine is 
entered to find roll space that is no 
longer in use. If 32 or more bytes are 
found, the compilation continues. If fewer 
than 32 bytes are found, the compilation of 
the current program is terminated, the 
message NO CORE AVAILABLE is printed, and 
Space is freed. If there are multiple 
programs, the next one is compiled. 


The following paragraphs describe the 


controls and statistics maintained by the 
compiler in order to control the storage 
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allocation for rolls and the functioning of 
the “push up" logic. 


ROLL ADR Table 


The ROLL ADR table is a 1000-byte table 
maintained in IEYROL. Each entry in this 
table holds the beginning address of a 
block of storage which has been assigned to 


the roll storage area. The first address 
in the table is always’ the beginning 
address of roll 0. The second address is 


that of the first 4K-byte block of storage 


and, therefore, the beginning address of 
roll i. Initially, the last address 
recorded on the table is the beginning 


address of a block which holds the CODE and 





AFTER POLISH rolls, with the CODE roll 
beginning at the first location in the 
block. 

As information is recorded on rolls 


during the operation of the compiler, addi- 
tional storage space may eventually be 
required. Whenever storage is needed for a 
roll which precedes the CODE roll, an 
additional 4K block is requested from the 
system and its address is inserted into the 
ROLL ADR table immediately before the entry 
describing the CODE roll base. This inser- 
tion requires that any entries describing 


the CODE and AFTER POLISH rolls be moved 
down in the ROLL ADR table. The informa- 
tion on all rolls following (greater in 


number than) the roll requiring the space 
is then moved down a fixed number of words. 


The roll which immediately precedes the 
CODE roll moves into the new block of 
storage. This movement of the rolls 
creates the desired space for the _ roll 
requiring it. The movement of rolls does 
not respect roll boundaries; that is, it is 
entirely possible that any roll or rolls 


may bridge two blocks of storage. 


When additional storage Space is 
required for the AFTER POLISH roll, a block 
is requested from the system and its begin- 
ning address is added to the bottom of the 
ROLL ADR table. When the CODE roll 
requires more space, a new block is’ added 


in the same manner, the AFTER POLISH roll 
is moved down into the new block, and _ the 
vacated space is available to the CODE 
roll. 

The CODE and AFTER POLISH rolls are 
handled separately because the amount of 


information which can be expected to reside 
on them makes it impractical to move’ them 
frequently in order to satisfy storage 
requirements for all other rolls. The CODE 
roll is also somewhat unique in that it is 
assigned a large amount of space before it 
is used; that is, the AFTER POLISH roll 


does not begin at the same location as does 
the CODE roll. 


BASE, BOTTOM, and TOP Tables 


In order to permit dynamic allocation as 


well as to permit the use of the “push up" 
logic, tables containing the variables 
BASE, BOTTOM, and TOP are maintained to 


record the current status Of each of the 
rolls. These variables indicate addresses 
of rolls. Information stored on rolls is 
in units of fullwords; hence, these 
addresses are always multiples of four. 
The length of each of the tables is deter- 
mined by the number of rolls, and the roll 
number iS an index to the appropriate word 
in each table for the roll. 


Each of the variables occupies a full- 
word and has the following configuration: 


sake! 6 1 2 3 

0 1 2 9 0 1 
Ee ee Qe ee fe 1 
| {Entry number | ] 
| Jinto the | Displacement | 
| |ROLL ADR } (12 bits) ] 
| |Table | | 
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The entry number points to an entry in the 
ROLL ADR table and, hence, to the beginning 
address of a block of roll storage. The 
displacement is a byte count from _ the 
beginning ofthe indicated storage block to 
the location to which the variable (BASE, 
BOTTOM, or TOP) refers. 


It is Significant to note that the 
displacement field in these variables occu- 
pies twelve bits. If the displacement 
field is increased beyond its maximum value 
(4095), the overflow increases the entry 
number into the ROLL ADR table; this is the 


desired result, since it simply causes the 
variable to point to the next entry in the 
table and effectively indicate the next 
location in the roll storage area, the 


beginning of the next block. 


The first status variable for each roll, 
BASE, indicates the beginning address of 
that roll, minus four. The second vari- 
able, BOTTOM, indicates the address of the 
most recently entered word on the roll. 


If the roll is completely empty, its 
BOTTOM iS equal to its BASE; otherwise, 
BOTTOM always exceeds BASE by a multiple of 
four. Figure 7 illustrates a roll which 
contains information. 
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BASE (n) poo 1 
a2: | <----=- unused 
TOP (n) j | 
|--------------- 4 
|--------------- { 
}--------------- { 
|--------------- 4 
| ‘ | K bytes 
| . | 
| . | 
|--------------- { 
BOTTOM(n)----> | | 
oe ee enn ee re me 4 
Figure 7. Roll Containing kK Bytes of 
Information 


When information is to be added to a 
roll, it is stored at the address pointed 
to by BOTTOM, plus four, and BOTTOM is 
increased by four. When a word is to be 
retrieved from a roll, it is read from the 
address specified by BOTTOM, and, under 
most circumstances, BOTTOM is’ reduced by 


four, thus indicating that the word is no 
longer occupied by the roll. This altera- 
tion of the value of BOTTOM is termed 


runin If the information retrieved from 

a roll is to remain on the roll as well as 
at the destination, BOTTOM is not changed. 
This operation is indicated by the use of 
the word “keep"™ in the POP instructions 
that perform it. 


The current length (in bytes) of a_ roll 
is determined by subtracting its BASE from 
its BOTTOM. Note that this is true even 
though the entry number field appears in 
these variables, since each increase in 
entry number indicates 4096 bytes occupied 
by the roll. Thus, there is no limitation 
on the size of a roll from this source. 


For each roll, an additional status 
variable, calied TOP, is maintained. TOP 
enables the program to protect a portion of 
the roll from destruction, while allowing 
the use of the roll as though it were 
empty. Protecting a roll in this way is 
called reserving the roll. The contents of 
TOP (always greater than or equal to the 
contents of BASE) indicate a false BASE for 
the roll. The area between BASE and TOP, 
when TOP does not equal BASE, cannot be 
altered or removed from the roll. Ascend- 
ing locations from TOP constitute the new, 
empty roll. 


Like BASE, TOP points to the word imme- 
diately preceding the first word into which 
information can be stored. A value is 
automatically stored in this unused word 
when the roll is reserved; the value is the 
previous value of TOP, minus the value of 
BASE and is called the reserve mark. 
Storage of this value permits more than one 
segment of the roll to be reserved. 
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A single roll (roll n), then, containing 
K bytes of information, (where K is always 
a multiple of four) and having no reserved 
Status, has the following settings for its 
Status variables: 


BOTTOM = BASE + K = TOP + K 


Figure 7 also illustrates this roll. If 
the same roll contains L bytes reserved and 
K additional bytes of information, the 
settings of its status variables are as 
follows: 


BOTTOM = TOP + K = BASE + L + K + 4 


This roll is shown in Figure 8. Note that 
the relationships given above are valid 
because of the structure of the BASE, 
BOTTOM, and TOP variables. 
4 bytes 
ee 1 
BASE (n)----- >| | <---—unused 
}-------~-------- { 
| 
}~-------------- { 
| | 
‘ia aan { 
| ° | L bytes 
| ‘ | 
}--------------- { 
| | 
}~-------------- { 
| | 
SEER SEE ee en Rae aa | 
TOP (n)-----~- >| |<---previous 
}--------------- TOP-BASE 
| 
L-——-—---__.~__ 
| 
neo 
| ° 
| ° K bytes 
| ° 
bees Ss ee 
| 
p-————-~—---———_~ 
a eee 


BOTTOM (n)--->] 





Figure 8. Roll Containing L Bytes of Re- 
served Information and K Bytes 


of New Information 


Special Rolls 


The WORK roll and the EXIT roll are 
special rolls in that they are not main- 
tained in the roll storage area, but rather 
appear in IEYROL with a fixed amount of 
storage allocated to each. They are rolls 
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in the sense that they employ the same push 
up logic which is used for the other rolls; 
however, they are not numbered, and their 
controls are, therefore, not maintained in 
the tables used for the other rolls. 


The WORK roll is used as a temporary 
storage area during the operations of the 
compiler. Because information is moved to 
and from the roll frequently it is handled 
separately from other rolls. 


The EXIT roll warrants special treatment 
because it is used frequently in maintain- 
ing exit and entrance addresses for compil- 
er routines. 


recorded 
general 


The bottom of the WORK roll is 
in general register 4, WRKADR; 
register 5, EXTADR, holds the address’ of 
the bottom of the EXIT roll. These values 
are absolute addresses rather than in the 
format of the BOTTOM variable recorded for 
other rolls. 


of the 
see Appendix B "Rolls 


For a more detailed explanation 
WORK and EXIT rolls, 
Used by the Compiler." 


Central _ Items, Groups, and Group Stats 


CENTRAL ITEMS: The items SYMBOL 1, SYMBOL 
2, SYMBOL 3, DATA 0, DATA 1, DATA 2, DATA 3 


and DATA 4, two bytes each in length, and 
DATA 5, eight bytes in length, contain 
variable names and constants. These items 
are called central due to the nature and 
frequency of their use. They occupy 
storage in the order listed, with DATA 1 


aligned to a doubleword boundary. 


In general, SYMBOL 1, 2, and 3 hold 
variable names; DATA 1 and2 are used to 
hold real constants, DATA 3 and 4 to hold 
integer constants, DATA 1, 2, 3 and 4 to 
hold double precision and complex con- 
Stants, and DATA 1, 2, 3, 4 and 5 to hold 
double-precision complex constants. 


GROUPS: While the basic unit of informa- 
tion stored on rolls is a fullword, many 
rolls contain logically connected informa- 
tion which requires more than a_ singleword 
of storage. Such a collection of informa- 
tion is called a group and always occupies 
a multiple of four bytes. A word of a 
group of more than one word is sometimes 
called a rung of the group. 


Regardless of the size of the group ona 
given roll, the item BOTTOM for the roll 
always points to the last word on the roll. 
Figure 9 shows a roll with a group size of 
twelve. 








4 bytes 
p~- 3 -- ------- . BASE (n) 
| [See 
Py eee eee eae ere | TOP (n) 

| | 
}--------------- { 

ist group < | | 
}--------------- { 
| | 
}--------------- { 
| | 
}--------------- { 

2nd group < | | 
}--------------- { 
| | 

» f------~-------- { 

| | 
}--------------- { 

3rd group < | | 
}--------------- ; 
| <--— BOTTOM (n) 
Leese was oes J 

Figure 9. Roll With a Group Size of 
Twelve 


For some rolls, the size of the group is 
not fixed. In these cases a construct 
called a “plex™ is used. The first word of 
each plex holds the number of words in the 
plex, exclusive of itself; the remainder 
holds the information needed in the group. 
(See Figure 10.) 


4 bytes 
fr er ee 1 
BASE (n) | |<---no. words 
\ >} ~-~—---------- { in group 
TOP {(n) }------------- 4 
| 3 | 
}~------------ { 
ails 
ae eer j information 
| i 
L NN ee a ew ee ee 4 
| : 
}------------- : 
| | 
|------------- { 
| | > plex 
}------------- { 
| | 
}------------- { 
| 
|------------- 1 
| 2 | 
}------------- { 
| |> plex 
|------------- i 
BOTTOM (nn) | | 
ee ee ae J 
Figure 10. Roll with Variable Group Size 
The assignment of roll storage does not 
respect group boundaries; thus, groups may 
be split between two blocks of roll 


storage. 
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GROUP STATS: Since the size of the group 
varies from roll to roll, this charac- 
teristic of each roll must be tabulated in 
order to provide proper manipulation of the 
roll. In addition, the groups on a roll 
are frequently searched against the values 
held in the central items (SYMBOL 1, 2, 3, 
etce,). Additional characteristics of the 
roll must be tabulated in order to provide 


for this function. Four variables tabu- 
lated in the group stats tables are 
required to maintain this information. 


(See Section 2 “IEYROL Module.™) 


The first group stats table contains a 
1-word entry for each roll. The entry is 
divided into two halfword values. The 
first of these is the displacement in bytes 
from SYMBOL 1 for a group search; that is, 
the number of bytes to the right of the 
beginning of SYMBOL 1 from which a compara- 
tive search with the group on the roll 
should begin. This value is zero for rolls 
which contain variable names (since these 
begin in SYMBOL 1), eight for rolls which 
contain real, double-precision, complex or 
double-precision complex constants (since 
these begin in DATA 1), and twelve for 
rolls which contain integer constants. 


The second value in the first group 
Stats table is also a displacement; the 
distance in bytes from the beginning of the 
group on the roll to the byte from which a 
comparative search with the central items 
should begin. 


The second group stats table also holds 
a 1-word entry for each roll; these entries 
are also divided into two halfword values. 
The first of these is the number of conse- 
cutive bytes to be used in a comparative 
search, and refers to both the group on the 
roll and the group in the central items 
with which it is being compared. 


The second item in the second table is 
the size of the group on the roll, in 
bytes. For rolls which hold plexes, the 
value of this item is four. 


For example, the DP CONST roll, which is 
used to hold the double-precision constants 
required for the object module, has. an 
8-byte group. The settings of the Group 
Stats for this roll are 8, 0, 8, and 8, 
respectively. The first 8 indicates that 
when this roll is searched in comparison 
with the central items, the search should 
begin eight bytes to the right of SYMBOL 1 
(at DATA 1). The O indicates that there is 
no displacement in the group itself; that 
is, no information precedes the value to be 
compared in the group. The second 8 is the 
Size of the value to be searched. The 
final 8 is the number of bytes per group on 
the roll. 
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The group stats for the ARRAY roll 
(which holds the names and dimension infor- 
mation of arrays) are 0, 0, 6, and 20. 
They indicate that the search begins at 
SYMBOL 1, that the search begins 0 bytes to 
the right of the beginning of the group on 
the roll, that the number of bytes to be 
searched is 6, and that the group 6 size on 
the roll is 20 bytes. 


Figures 11 and 12 show the two group 
Stats tables containing the information on 
the DP CONST roll and the ARRAY roll 
discussed above. It should be noted that 
the information contained on these two 
tables is arranged according to roll num- 
bers. In other words, the group stats for 
roll 5 are in the sixth entry in the tables 
(starting with entry number 0). | 


4 bytes 

(ne {oS eee 7 
}-----~----- }------------ { 
|----------- 4——---—------ : 
| : | 
: | 
| : | 
cranes ar ania pa ate » SERA as niies cami clarion { 
DP CONST roll--->| 8 | 0} 
ae eaene SaaS Se { 
° 
| : l 
| ‘ l 
ania ice ain —22o=452S2-= 4 
ARRAY roll--->]| 0 | 0| 
|----------- 1_--------~-- 4 
| ° | 
. i 
| . 
PHS eos , saetieapac gu aac { 
Us es Se J 

Figure 11. First Group Stats Table 

4 bytes 

 eliaaaa acetate atin: casa acai atte 7 
}----------- }------------ { 
cae ahaa! acca sues staat aranesiniac in 4 
: { 
| ‘ i 
| : 
ps5 $==+=- | eae adsense : 
DP CONST roll--->| 8 | 8 | 
}----------- 1_----------— { 
| ° 
| : I 
° i 
~---------- q----7-----=-4 
ARRAY roli--—-—>| 6 | 20] 
}----------- 1------------ { 
| : | 
: | 
| e | 
aac 5 as aausieaiaeparee ies d { 
a Ree ee a eer Fee ae ON ee J 


Figure 12. Second Group Stats Table 
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OTHER VARIABLES 


In addition to the central items, 
several other variables used in the compil- 
er perform functions which are significant 
to the understanding of the POP instruc- 
tions. These are described in the follow- 
ing paragraphs. 


Answer _Box 


which is re- 
in the first byte of the first word 


The variable ANSWER BOX, 
corded 


of each EXIT roll group, is used to _ hold 
the true or false responses from POP 
instructions. The value “true" is repre- 


sented by a nonzero value in this variable, 
and "“false" by zero. The value is checked 
by POP jump instructions. 


Multiple Precision Arithmetic 


Most of the arithmetic performed in the 
compiler is fullword arithmetic. When 
double-precision arithmetic is required, 
the variables MPAC 1 and MPAC 2, four bytes 
each in length, are used as a double- 
precision register. These variables are 
maintained in main storage. 


Scan control 


Several variables are used in the 
character scanning performed by the first 
processing phase of the compiler, Parse. 
Their names, and terms associated with 
their values, are frequently used in 
describing the POP instructions. 


The variable CRRNT CHAR holds the source 
statement character which is currently 
being inspected; the variable is four bytes 
long. The position (scan arrow) of the 
current character within the input state- 
ment (its column number, where a continuous 
column count is maintained over each state- 
ment) is held in the low-order bit posi- 
tions of the fullword variable CRRNT CHAR 
CNT. 


characters are called “active 
literal or IBM 


Non-blank 
characters," except when 


card code information is being scanned. 
The variable LAST CHAR CNT, which occupies 
one word of storage, holds the column 


number of the active character previous to 
the one in CRRNT CHAR. 
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eee arene mine aapaner eamemy 


1 
Column number: 1234567890 
po 50 T= 1, 4 
ACI) = BCI) **2 
DO 50 J=1, 5 
50 c(J+1) = ACL) 


ee sean Ce A OO RE eS Se 


In the processing of the source module 


which contains the above statements, state- 
ment 50 iS currently being parsed. The 
current character from the input buffer is 
Oe The settings of the scan control 
variables are shown in Figure 13. 
(ee ee ge ee ea ee On ee ee 1 
| (EBCDIC) 7) 
re Pe EDEN VE Od PORER era oR ee Ua RT ace eT Poe a eC pee J 
CRRNT CHAR 
ar a ed Ee IO ee ae rag eg Sa Re em 1 
| 9 | 
et eg Defeat tee ac ge Re er POT CEU Lor Src a AO REO a EET tS ee ne J 
CRRNT CHAR CNT 
(scan arrow) 
rg ee ee ie 1 
| 1 8 | 
aa ss Se te J 


LAST CHAR CNT 


Figure 13. Scan Control Variables 


Flags 


. Several flags are used in the compiler. 

These 1-word variables have two 
values: on, represented by nonzero, and 
off, represented by zero. The name of the 
flag indicates the significance of the "on" 
setting in all cases. 


Quotes 


Quotes are .sequences of characters pre- 
ceded by a halfword character count; they 
are compared with the input data to deter- 


mine a statement type during the Parse 
phase. These constants are grouped 
together at the end of phase i. The 


location labeled QUOTE BASE is the begin- 
ning location of the first quote; instruc- 


possible. 


Section 1: 


tions which refer to quotes are assembled 
with address fields which are relative to 
this location. 


Figure 14 shows some of the quotes used 
by the compiler and how they are arranged 
in storage. 

4 bytes 
foes eet a eee 1 
QUOTE BASE | 00 02 N D | 
Eeepey a oer ae oe ey eR ee ety eee ee ame eee eyes 4 
| 00 08 I M | 
}------------------------------ { 
| E N S I | 
}------------------------------ { 
{| Oo N b b | 
aah ieee ee te 4 
} 00 O07 M P | 
}-~---------------------------- { 
| - I Cc I | 
}------------------------------ { 
| 7 b b b | 
}------------------------------ { 
| 00 07 L O | 
}------------------------------ | 
| G I Cc A | 
}------------------------------ { 
f L b b b | 
}------------------------------ { 
| . | 
| : | 
| ° | 
}-------------~---------------- { 
} OO 06 F Oo | 
}------------------------------ { 
| R M A TP‘ 
|------------------------------ 
| ° | 
| . | 
| ‘ | 
bee ee eee ee ee eee 4 
Figure 14, Quotes Used in the Compiler 
Messages 


The messages used in the compiler, which 
are also grouped together at the end of 
Phase 1, are the error messages required by 
Parse for the source module listing. The 
first byte of each message holds the condi- 
tion code for the error described by the 
message. The second byte of the message is 
the number of bytes in the remainder of the 
message. The message follows this halfword 
of information. 


The location labeled MESSAGE BASE is the 
beginning location of the first message; 
instructions which refer to messages are 
assembled with address fields relative to 
this location. 
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COMPILER ARRANGEMENT AND GENERAL REGISTER General register 2, PGB2, holds the 
USAGE beginning address of the global jump table, 
a table containing the addresses of compili- 
er routines which are the targets of jump 
Figure 15 shows the arrangement of the instructions. (See Appendix A for further 
compiler in main storage with the Parse discussion of this table and the way in 
phase shown in detail. General registers which it is used.) The global jump table 
that hold base locations within the compil- appears in each phase of the compiler and 
er are shown pointing to the locations they is labeled PROGRAM BASE 2; thus, the value 
indicate. Note that the labels CBASE and held in general register 2 is changed at 
PROGRAM BASE 2 appear in each phase of the the beginning of each phase of the 
compiler; the general registers CONSTR and compiler. 
PGB2 contain the locations of those labels 
in the operating phase. 


eS, a aa a a aaa a aaa a aa 1 
} Register ] Label | Contents | 
}------~-----1~---~---------~~~~~1~~~----~------------------------------------ { 

| Invocation Phase | 
}---~-~------ y--~--------------- ----------- -2------------------------------- { low 
] POPPGB--->{ POP TABLE ] POP Jump Table ] storage 
| | -—- ~~ — nan n nnn nnn n nn en { 

| } POP SETUP { POP Machine Language Subroutines | 

| | |-------------------~------------------------- { 

| | } Data for POP Subroutines j 
}------------ }------------------ }~~~---~-~------------------~----------------- { 

| ROLLBR--->] ROLL BASE | Roll Statistics (Bases, Tops, Bottoms) | 

| }------~-------------------------------------- { 

i ] | Group Stats (Displacements, Group Sizes) | 

| | }--------~------------~--~---------~---------- { 

| } | WORK Roll | 

| | }-------------------------------------------- { 

| ] ] EXIT Roll | 

| | }--~------~-~-~-~~---~---------~------------- { 

| | ROLL ADR Table | 

| }--~----------------------------------------- { 

| | {| Roll Storage | 

PREP PPPPPPBPP AAPA PRADA DNDN PA LINN NAP OP PP NA NA NAN Ned ed PA NA NA ANA NA Ne NANA NANA NANA PP A OP 8A NANA AA NA NS 
SPRANANPRLINI NIN Na Ned Nel Ne NIN NDNA NINA NA NAN ND NS NP NP NP NP NP NP NA RP NANPA NP PRP NP AAD NPP PLP PD DSN NDNA NLP PNA PN NANA NA NSD NANA NA NANPA NIN NAN NINE 

| ] | Roll Storage* | 
}~----------- 4------------------ }-------------------------------------------- { 

| CONSTR--->]} CBASE |} Parse Data Items | 

! }-----~--------------------------------------- { 

| j ] Parse Routines | 

| |-------------------------------------------- { 

] PGB2----- >| PROGRAM BASE 2 | Parse Global Jump Table | 

| | }-------------------------------------------- { 

] | {| Parse Routines containing assembler | 

| ] | language branch targets | 

| | }-------------------------------------------- { 

| |} QUOTE BASE | Quotes | 

| | 0 Peewee nanan nen --+--------------------------- { 

| |] MESSAGE BASE |] Messages 1 
}~-~--——-—--—-—--- 1—————————~—~———-——-—- 41 ———-~-———~~~-—~~-—~-~~~—-—-—~--- ~~ -— ~~ --— ~— +--+ 4 high 
] PHASE 2: Allocate storage 
besa Sesiee ee eae eee a ee ee See ee eee ee eee 


ARO CARI MaRS SEE ORT OOD AEA ce SIPUERO “OCR STINE SANS CRD SERED SERS ITEND “SRD ELEY EER AEE SY SED SES SRD II EY EY WY SELNY oe SEN SE een ER cy GD eee GRY SID cine “ASO te Stee eee SY ans ee OES ee SED ene ne eee Ue oe eee ES ee ee eee A a ee ee ee ee ee ee ee ee Ce ee ee ee ee 


}*Roll storage is allocated in 4kK-byte blocks, beginning from the higher end] 
|] Of storage contiguous with Parse. Additional blocks are obtained, as| 
} needed, from preceding (lower) 4K-byte blocks of storage. | | 


e Figure 15. Compiler Arrangement with Registers 
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Compiler routines which contain assem- 
bler language instructions and are either 
branched to by other assembler language 
instructions or which themselves perform 
internal branches, follow the global jump 
table. General register 2 is used as a 
base register for references to both the 
global jump table and these routines. 
Figure 15 shows this register in Parse. 


General register 3, called POPADR in the 
compiler code, is used in the sequencing of 
the POP operations. It holds the address 
of the current POP, and is incremented by 2 
as each POP is interpreted. 


General register 4, called WRKADR, holds 
the address of the current bottom of the 
WORK roll. 


General register 5, called EXTADR, holds 
the address of the current bottom of the 
EXIT roll. 


General register 6, 
the return location for 
When POPs are being interpreted by POP 
SETUP, the return is to POP SETUP; when 
machine language instructions branch to the 
POPs, it is to the next instruction. 


called POPXIT, holds 
POP subroutines. 


General 
the address 


register 7, called ADDR, holds 

portion of the current POP 
instruction (eight bits); it is also used 
in the decoding of the operation code 
portion of POP instructions. 


General register 8, called POPPGB, holds 
the beginning address of the machine lan- 
guage code for the POP instructions and the 


POP jump table. Figure 15 shows this 
register, which is used as a base for 
references to these areas. 

General register 9, called CONSTR, holds | 
the beginning address of the data referred 
to by the compiler routines. This area 
precedes the routines themselves, and is 


labeled CBASE, as indicated in Figure 15. 
This register is, therefore, used as a base 
register for references to data as well as 


for references to the routines in the 
compiler; its value is changed at _ the 
beginning of each phase. 

General register 10, ROLLBR, holds the 
beginning address of the roll area; that 


is, the beginning address of the base table 
(see Figure 15). The value in this 
register remains constant throughout’ the 
Operation of the compiler. 


General register 11, RETURN, holds 
return addresses for the POP subroutines. 


The remaining general registers are used 
temporarily for various purposes in the 
compiler. 
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POINTERS 
Information defining a source module 
variable (its name, dimensions, etc.) is 


recorded by the compiler when the name of 
the variable appears in an Explicit speci- 
fication or DIMENSION statement. For 
variables which are not explicitly defined, 
this information is recorded when the first 
use of the variable is encountered. All 
constants are recorded when they are first 
used in the source module. 


All references to a given variable or 
constant are indicated by a pointer to the 
location at which the information defining 
that variable or constant is stored. The 
use of the pointer eliminates redundancy 
and saves compiler space. 

The pointer is a 1-word value in the 
following format: 


1 byte 1 byte 2 bytes 
Pes Soe 5 ire Laren aia rn ee ee ee 1 
| TAG | OPERATOR | ADDRESS | 
ocak ne ere tanec Sete eee Neate a ear ate al J 
where: 
TAG 


is a 1-byte item whose value is repre- 
sented in two parts: MODE, occupying 
the upper four bits, indicates whether 


the variable or constant is integer, 
real, complex or logical; SIZE, indi- 
cated in the lower four bits, speci- 


fies the length of the variable or 


constant (in bytes) minus one. (See 

Figure 15.1). 
pt a Ne ee a 
}Value | MODE {| Value | SIZE | 
}------- }------------- 4------- 4{----------- 
] 0 j Integer | 0 | 1 byte { 
] 1 | Real | A | 2 bytes | 
| 2 | Complex | 3 | 4 bytes | 
| c' | Logical | 7 | 8 bytes | 
] 4 | Literal/ | F | 16 bytes | 
| {| Hexadecimal | | | 
bei ee eee es fener eee ye pas a een eee J 


Figure 15.1 TAG Field MODE and SIZE Values 


OPERATOR 
is a i-byte item which contains’ the 
roll number of the roll on which the 
group defining the constant or vari- 
able is stored. 


ADDRESS 


is a 2-byte item which holds’ the 
relative address (in bytes) of the 
group which contains the information 
for the constant or variable; the 
address is relative to the TOP of the 
roll. 
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The pointer contains all the information 
required to determine an absolute location 
in the roll storage area. The roll number 
(from the OPERATOR field) is first used as 
an index into the TOP table. The ADDRESS 
field of the pointer is then added to the 
TOP, and the result is handled as follows: 


1. Its entry number field (bits 12 
through 19) is used as an index into 
the ROLL ADR table. 


2. Its displacement field (bits 20 
through 31) is added to the base 
address found in the ROLL ADR_ table. 
The result of step 2 is the address 
indicated by the pointer. 


whose 


Example: Using a_ pointer OPERATOR 
field contains the value 2 and whose 
ADDRESS field contains the value 4, and the 
following tables: 
TOP ROLL ADR 
eee ain came aia eS eee 1 
0 | | | { Oo | i 
|----4----+-----4 }--------------- { 
1 | | | 1 | | 
2 | ; 2 | 20 | 2 | 1000 | 
}----4----4---_- }~-------------- { 
| ° | | e | 
| ° | | ° 1 
| : | | ° 
| | | | 
the location 1024 is determined. Note that 
for larger values in the pointer and in 


TOP, the entry number field of TOP can be 
modified by the addition of ADDRESS. In 
this case the result of the addition holds 


2 and 24 in the entry number and displace- 
ment fields, respectively. 


Since relative addresses are recorded in 
pointers, it is not necessary to alter a 
pointer when the roll pointed to is moved. 
Note also that the relative address in the 
pointer may exceed 4096 bytes with no 
complication of the addressing scheme. The 
only limitation on the size of a roll comes 
about because of the size of the ADDRESS 


field of the pointer: 16 bits permit 
values less than 64K bytes to be 
represented. 
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For the purposes of object code genera- 
tion, the mode and size of the constant or 
variable is available to influence the type 
of operations which can be employed, e.qg., 


integer © or floating, fullword, or 
doubleword. 
DRIVERS 

In the generation of Polish notation 


from the source language statements, 
“drivers"™ are also used. These "drivers" 
are values that are one word long and have 
the same format as the pointer. The two 
types of drivers used by the compiler are 
discussed in the following paragraphs. 


Operation Drivers 


One type of driver is the operation 
driver, which indicates arithmetic or log- 


ical operations to be performed. The 


fields of the driver are: 


TAG 
is a 1-byte item whose value is repre- 
sented in two parts: MODE, occupying 
the upper four bits, indicates’ the 
mode of the operation, e.g., integer, 
floating-point, complex or logical; 
SIZE, indicated in the lower four 
bits, specifies the length of the 
result of the operation (in bytes) 
minus one. 
OPERATOR 
is a i-byte item containing a value 
which indicates the operation to be 
performed, e.g.-, addition, subtrac- 
tion, etc. The values for OPERATOR 
are larger than the number of any 
roll, and hence, also serve to distin- 
guish a driver from a pointer. 
ADDRESS 


is a 2-byte item containing a value 
which indicates the "forcing strength" 


of the operation specified by the 
driver; its values range from zero to 
ten. 


The forcing strengths associated with 
the operation drivers are given in Table 1. 


Table 1. Internal Configuration of Opera- 
tion Drivers 

(Foe ees RA es ee ee oro 1 
| | | ADDRESS 
| ] | ] (Forcing ] 
| Driver JTAG+|OPERATOR|Strength) — | 
Siicieaeteaanasen | anlar Sone Eaeg ian Ge one rireeiaReana! 
| Sprog? } OO | 40 |} OO O00 ] 
~------------- 4----}--------4------------} 
|] Power } oo | 42 } 00 O01 | 
fara SS alas ae ipa ee ae 4 
|Unary Minus | OO | 43 1 00 02 | 
-~------------ +----}-------- }------------ 4 
| Multiply {| oo | 4y } 00 03 ] 
~------------- +----+-------- }------------ { 
| Divide |} OO | 45 } 00 03 | 
Sinisa miata 1 aaa asta ania Calan a 
| Add } OO | 46 } OO O04 ] 
-------------- $----}--------}------------4 
|} Subtract | 00 | 47 } 00 O04 ] 
Gin Asana mata | ees Senn omnia a arian erat 4 
IGT } 00 | 4u8 | 00 05 
pos Setar esses 7 eee acerca qe ee ter ee 4 
| GE } OO | 49 } 00 05 j 
-------------- 4~---4--------4------=-----4 
| LT } OO | OA } 00 05 | 
}-------------- 4----}-------- }------------ { 
| LE 1 00 | 4B =| 00 05 1 
}-------------- 4----}-------- }------------ 4 
} EQ | oo | uC } 00 O05 J 
-------------- 4----}--------}------------4 
| NE {| OO | 4D } 00 05 | 
}-------------- }----4--------4------------4 
| NOT | oOo | WE | OO 06 ] 
~------------- 4----}--------}------------4 
| AND } OO | We |} 00 07 | 
}-------------- +----4-------- }------------ { 
}OR } OO | 50 } 00 08 | 
-------------- 4----}--------}------------4 
|Plus and Below| | | | 
|} Phony? } 00 j 3F } 00 09 ] 
-------------- 4----}--------}------------4 
| EOE4 |} OO | 3F | OO OA | 
}—________.__.__._ YON Sana oreo ert bee eee eS 4 


}*The MODE and SIZE settings are placed in| 
|] the driver when it is used. | 
}2Indicates a function reference. ] 


{Used to designate the beginning of an| 
] expression. | 
|*Means "end of expression" and is used| 
| for that purpose. | 
i he a oe J 


Section 1: 


Control Drivers 


The other type of driver used in the 
generation of Polish notation is called the 

ntrol driver It is used to indicate the 
type of the statement for which code is to 
be written. The control driver may also 
designate some other control function such 
as an I/O list, an array reference, or an 
error linkage. 


The fields of the control driver differ 
from those of the operation driver in that 
zero is contained in the TAG field, 255 in 
the OPERATOR field (the distinguishing mark 
for control drivers), and a unigue value in 
the ADDRESS field. The value in the 
ADDRESS field is an entry number into a 
table of branches to routines that process 
each statement type or control function; it 
is used in this way during the operations 
of Gen. The formats of the operation 
drivers and control drivers are given in 
Appendix E. 


Table 1 lists the operation drivers and 
the values contained in each field. The 
control drivers are given in Table 2. The 
ADDRESS field is the only field given 
because the TAG and OPERATOR fields are 
constant. All values are represented in 
hexadecimal. 
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eTable 2. 


Beco a ee gt eng e ree a T 
| | 
| Driver | 
| | 
aaa a hag ene res aca + 
| AFDS | 
pra eaeeeee Sees sheers eae ese + 
| ARRAY l 
asa ai Risied a cum cca aa aaa + 
] ASSIGN l 
2a. a ean + 
| ASSIGNED GOTO | 
 Iaaeaetiacicis ca yapeoeaton aia cas pantie cs aca eee + 
| ASSIGNMENT | 
(oe eee - 
| AT | 
a le ucla crate ea ae eee race tear + 
| BSREF | 
eases ela niae a aed ieee etree ace a as 
| CALL | 
ani aa i aa aa + 
| CGOTO | 
pres H Sees SSS sa a eee ae - 
| CONTINUE | 
ad a aca aia ad + 
| DATA | 
ag areal a eS RI + 
| DEFINE FILE | 
Ria aT aa aipaaeloa te ane + 
| DIRECT IO 
gies ee a ene , 
| DISPLAY ID | 
plas eS SSeS SSS SSeS eae + 
| DO 
esa a mca i a aa af 
| DUMMY | 
Sata ar aa + 
| END 
eset eat ai a me = 
| END= | 
io CR Sagan a ee am een + 
| ERROR LINK 1 
 SeaeacleamRnSae ISIE a Bimnel acienen aL + 
| ERROR LINK 2 
aa a Src ma a 
| ERROR LINK 3 | 
cee a an a a a ae eee ees mo 
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Internal Configuration 


of Con- 


trol Drivers (Part 1 of 2) 


Shree Oe ere eee 
ADDRESS | 

| 

abi ae eas Sore oe eahe cas So aloes 4 
8 | 

ice Rees oe ree j 
23c | 

spac gs a as Sa i ae a 5 | 
20 

as i ein ate eee ee oases 4 
1c 

Be oi sas Sa es oe 4 
Ho | 

a ph cla ae sd eins aes ne 4 
68 | 

sy acca as ce ata ah eae ee 4 
34 l 

sie ass eee esas Dea ae cae eas 4 
2c 

ae ss a pt ce a a Dac ae a fi 
18 

ge eas see atin eeaeane ee 4 
28 l 

a oa ace ad ae es ae 4 
3c 

spe itas Si am SSe ae Gos nn eee a a 4 
uu | 

So ie eat sae tnt ins ae a aw Se 4 
200 

es Soc a a accra aac 4 
74 | 
potest Sta ee ae een 4 
10 

sci aecveeneliaan aie mae ele abe ao as 4 
68 l 

cee ec a as ee 4 
Cc 

sees es eee eens 4 
20C | 

Gee ce See at ees 4 
54 

ac pasa cae ea as aaa 4 
58 l 

hs a eg a ps 4 
5c 

Si i es ee ine a aca Sac J 


eTable 2. Internal Configuration of Con- 
trol Drivers (Part 2 of 2) 
Gg er ee epee ere aaa 1 
| | | | 
| Driver | ADDRESS | 
| | | | 
}---------------------------- }------------ { 
| ERR= | 210 | 
}----------~----~------------- $------------ { 
| EXP and ARG | 4280 | 
}---------------------------- {-----+------ { 
| PIND | 4C | 
}---------------------------- }------------ { 
| FORMAT | 208 | 
}---------------~------------ {------------ { 
|) FORMAT STA l 30 | 
j-~-----------------~-------- }------------ { 
{| GOTO | 14 | 
p-----~-------- ~~ + --- === faaneren-n=-- { 
| IF | 24 | 
panne anne nan nn nnn en foam me nn nne { 
| IOL DO CLOSE | 218 | 
}~--------------------------- +------------ { 
{| IOL DO DATA | 21C | 
{-~-------~------------------- +---~-------- { 
| IO LIST | 214 
jo~--~-- ~~~ ~~~ +--+ === | aS ane 4 
} LOGICAL IF | 60 | 
}------------------~--------- 4------------ { 
| NAMELIST | 204 | 
p---------------------------- $------------ { 
| PAUSE | 38 | 
j-----~---------------------- ------------ { 
} READ WRITE | U8 | 
}---------------------------- f---~2------- { 
] RETURN | 50 | 
{--~--~-----~--~---~--------- $---------—- { 
|} STANDARD PRINT UNIT l 234 | 
}~----~-~~------------------- }------------ { 
| STANDARD PUNCH UNIT | 238 | 
}---~----~--~---------------- 4----~------- { 
| STANDARD RZAD UNIT | 230 | 
j---------------------------- 4------------ { 
| STOP | 64 | 
j--------------~------------- $------------ { 
| SUBPROGRAM | | 40 | 
p-~-~--~----- ~~---~+~-------- frnne nana ==- { 
j TRACE OFF | 70 | 
{---------------------------- $------------ { 
| TRACE ON | 6C | 
Ni coi acd dees ee Se a tS ¥ igeapeeempe poppe meee ene J 


This section describes in detail the 
Invocation phase and the five processing 
phases of the compiler and their operation. 
The IEYROL module is also described. 


INVOCATION PHASE (IEYFORT) 


The Invocation phase is the compiler 
control phase and is the first and last 
phase of the compiler. (The logic of the 
phase is illustrated in Chart 00.) If the 
compiler is invoked in an EXEC statement, 
control is received from the operating 
system control program. However, control 
may be received from other programs through 


use of one of the system macro instruc- 
tions: CALL, LINK, or ATTACH. 
IEYFORT performs compiler initializa- 


tion, expansion of roll storage assignment, 
input/output request processing, and com- 
piler termination. The following para- 
graphs describe these operations in greater 
detail. 


IEYFORT, CHART 00 


IEYFORT is the basic control routine of 
the Invocation phase. Its operation is 
invoked by the operating system or by 
another program through either the CALL, 
LINK, Or ATTACH macro instructions. The 
execution of IEYFORT includes scanning the 
specified compiler options, setting the 
ddnames for designated data sets, initia- 
lizing heading information, and acquiring 
time and date information from the system. 


IEYFORT sets pointers and indicators to 
the options, data sets, and heading infor- 
mation specified for use by the compiler. 
The options are given in 40 or fewer 
characters, and are preceded in storage by 
a binary count of the option information. 
This character count immediately precedes 
the first location which contains’ the 
option data. The options themselves are 
represented in EBCDIC. 


On entry to IEYFORT, general register 1 
contains the address of a group of three or 
fewer pointers. Pointer 1 of the group 
holds the beginning address of an area in 
storage that contains the execute options 
specified by the programmer (set in the 
OPTSCAN routine). 
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Pointer 2 contains the address of the 
list of DD names to be used by the compiler 
(set in the DDNAMES routine). 


Pointer 3 contains the address of the 
heading information. Heading data may 
designate such information as the continua- 
tion of pages, and the titles of pages. 

If the FORTRAN compiler is invoked by 
the control program (i.e., called by the 
system), pointers 2 and 3 are not used. 
However, if the compiler is invoked by some 
other source, all pointers may be used. 
The latter condition is determined through 
an interrogation of the high order bit of a 


pointer. If this bit is set, the remaining 
pointers are nonexistent. Nevertheless, 
pointers 1 and 3 may exist while pointer 2 


is nonexistent; in this pointer 2 


contains all zeros. 


case, 


IEYFORT, the 
always 


During the operation of 
SYSIN and SYSPRINT data sets are 


opened through use of the OPEN macro 
instruction. The SYSLIN and SYSPUNCH data 
sets are also opened depending upon the 


specification of the LOAD and DECK options. 
The block sizes of these data sets are set 
to 80, 120, 80 and 80, respectively. These 
data sets may be blocked or unblocked 
(RECFM=F, FB, or FBA) depending upon the 
DCB specification in the DD statements. 


IEYFORT concludes the compiler initializa- 
tion process with a branch to the first 
processing phase of the compiler, Parse 


(IEYPAR). 


From this point in the operation of the 
compiler, each processing phase calls the 
next phase to be executed. However, the 
Invocation phase is re-entered periodically 
when the compiler performs such input/ 
output operations as printing, punching, or 
reading. The last entry to the Invocation 
phase is at the completion of the compiler 
operation. 


IEYPRNT, Chart 00A4 


IEYPRNT is the routine that is called by 
the compiler when any request for printing 
is issued. The routine sets and checks the 
print controls such as setting the line 
count, advancing the line count, checking 
the lines used, and controlling the spacing 
before and after the printing of each line. 
These control items are set, checked, and 
inserted into the SYSPRINT control format, 
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and the parameter information and print 
addresses are initialized for SYSPRINT. 


If there is an error during the printing 
operation, EREXITPR sets the error code 
resulting from the print error. Any error 
occurring during an input/output operation 
results in a termination of compiler 
operation. 


PRNTHEAD, Chart 01A2 


PRNTHEAD is called by IEYPRNT after it 
has been determined that the next print 
operation begins on a new page. The pro- 
gram name and the new page number placed 
into the heading format and any parameter 
information and origin addresses are 
inserted into the SYSPRINT format. If an 
optional heading is specified by the pro- 
grammer, it is inserted into the print line 
format. A PUT macro instruction is issued 
to print the designated line, and all print 
controls are advanced for the next print 
operation. 


IEYREAD, Chart 01A4 


IEYREAD is called by the compiler at the 
time that a read operation is indicated. 
It reads input in card format from SYSIN 
using the GET macro instruction. IEYREAD 
can handle concatenated data sets. 

If an error occurs during the read 
operation, the routine EREXITIN is called. 
This routine checks the error code 
generated and prints the appropriate error 
message. 


IEYPCH, Chart 02A3 


When a punch output 
requested by the compiler, control is tran- 
sferred to the IEYPCH routine. The LOAD 
and DECK options are checked to determine 
what output to perform. 


operation is 


Any errors detected during output result 
in a transfer of control to the EREXITPC, 
for SYSPUNCH, or EREXITLN, for SYSLIN, 
routine. The routine sets a flag so that 
no further output is placed on the affected 
file. 
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“segment has 


PRNIMSG, Chart 03A1 


PRNTMSG is called when any type of 
message is to be printed. The print area 


is initialized with blanks and the origin 
and displacement controls are set. The 
message is printed in two segments; each 


segment is inserted into the print area 
after the complete message length is deter- 
mined and the length and origin of each 
been calculated. Once the 
entire message has been inserted, the car- 
riage control for printing is set and 
control is transferred to the system to 
print the message. 


ITEYMOR, Chart 01D1 


IEYMOR is called when additional roll 
storage area is needed for compiler opera- 
tion. This routine may be entered from any 
of the processing phases of the compiler. 
The GETMAIN macro instruction is issued by 


this routine and transfers control to the 
system for the allocation of one 4kK-byte 
block of contiguous storage. The system 


returns to IEYMOR with the absolute address 
of the beginning of the storage block in 
general register 1. Once the requested 
storage space has been obtained, IEYMOR 
returns to the invoking phase. If the 
system is unable to allocate the requested 
storage, inactive modules of the compiler 
are deleted. Those preceding the currently 
active module are deleted first; then those 
following it are deleted, if necessary. 
Should additional space be needed after all 


inactive modules are deleted, compiler 
operations are terminated. 

When IEYMOR returns to the invoking 
phase with the absolute address of the 


storage block in general register 1, the 
invoking phase then stores the contents of 
register 1 in the ROLL ADR table. 


The ROLL ADR table is used by the 
compiler to record the addresses of the 
different blocks of storage that have been 
allocated for additional roll capacity. 
The contents of the table are later used in 
IEYRETN for releasing of the same storage 
blocks. 


TEYNOCR 


ITEYNOCR is called by PRESS MEMORY 
(IEYPAR) whenever it is unable to obtain at 
least 32 bytes of unused storage. ITEYNOCR 
prints the message NO CORE AVAILABLE, 
branches to a subroutine that checks to see 
if there are any source language cards to 
be disregarded, and then exits to IEYRETN. 


IEYRETN, Chart 03A2 


The compiler termination routine 
(IFYRETN) is invoked by Exit (IEYEXT) or by 
one of the input/output routines after the 
detection of an error. 


The routine first obtains the error 
condition code returned by the compiler and 
tests this value against any previous value 
received during the compilation. The com- 
piler communications area for the error 
code is set to the highest code received 
and a program name of “Main" is set in the 
event of multiple compilations. The rou- 
tine then checks general register 1 for the 
address of the ROLL ADR table. Each entry 
Of the ROLL ADR table indicates the begin- 
ning of a 4kK-byte block of roll storage 
that must be released. A FREEMAIN macro 
instruction is issued for each block of 
storage indicated in the table until a zero 
entry is encountered (this denotes the end 
of the ROLL ADR table). 


The presence of more than one _ source 
module in the input stream is checked by 
interrogating the end-of-file indication 
and the first card following this notation. 
If another compilation is indicated, the 
line, card, and page count control items 
are reinitialized and all save registers 
used by the Invocation phase are restored. 
The first processing phase of the compiler, 
Parse (IEYPAR), is called and the operation 
of the compiler proceeds as described in 
the previous paragraphs and those pertain- 
ing to the processing phases. 


If another compilation is not indicated, 
routine IEYFINAL closes the data set files 
used by the compiler (by means of the CLOSE 
macro instruction). The terminal error 
condition code is obtained and set for the 
return to the invoking program, and all 
Saved registers are restored before the 
return is made. 


Routine IEYFINAL also receives control 
from other compiler routines when an input/ 
output error is detected. 


OPTSCAN, Chart AA 


OPTSCAN determines the existence of the 
parameters specifying the compiler options. 
If options are specified, the validity of 
each option is checked against the parame- 
ter table and the pointer to these options 
is set once the options have been vali- 


dated. The program name is noted depending 
upon the presence or absence of the WAME 
parameter. However, if these options are 
not specified, the first pointer of the 
group of three supplied to the compiler by 
the system contains zero. 


DDNAMES, Chart AB 


DDNAMES scans the entries made for. the 
names of the data sets to be used by the 
compiler. The entries corresponding to 
SYSN, SYSIN, SYSPRINT, and SYSPUNCH are 
checked; if an alternate nane has been 
provided, it is inserted into the DCB area. 


HEADOPT, Chart _AC 


HEADOPT determines the existence of the 
optional heading information. If such 
information exists, its length is deter- 
mined, it is centered for printing, and 
then inserted into the Printmsg Table, with 
pointer 3 being set. 


TIMEDAT, Chart _AD 


TIMEDAT serves only to obtain the time 
and date information from the system and 
insert the data into the heading line. 


OUTPUT FROM IEYFORT 


The following paragraphs describe the 
error messages produced during the opera- 
tion of the Invocation phase. These mes- 
sages denote the progress of the compila- 
tion, and denote the condition which 
results in the termination of the compiler. 
ITEYO28I NO CORE AVAILABLE - COMPILATION 
TERMINATED 


The system was unable to provide a 
4K-byte block of additional roll 
storage and PRESS MEMORY was 
entered. It, too, was unable to 
obtain space. The condition code 
is 16. 


ITEYO29I DECK OUTPUT DELETED 


The DECK option has been specified, 
and an error occurred during the 
process of punching the designated 
output. No error condition code is 
generated for this error. 
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TEYO30I LINK EDIT OUTPUT DELETED 


The LOAD option has been specified, 


and an error occurred during the 
process of generating the load 
module. The condition code is 16. 


IEYO311I ROLL SIZE EXCEEDED 


This message is produced when: (1) 
The WORK or EXIT roll has exceeded 
the storage capacity assigned; or 
(2) Another roll used by the com- 
piler has exceeded 64K bytes of 


Storage, thus making it unaddress- 
able. (This condition applies to 
all rolls except the AFTER POLISH 
and CODE rolls.) The condition 
code is 16. 

IEYO321T NULL PROGRAM 
This message is produced when an 


end-of-data set is encountered on 
the input data set prior to any 
valid source statement. The condi- 
tion code is 0. 


ITEYO34I I7O ERROR [COMPILATION TERMINATED] 
XXKe oe XXX 


This message is produced when an 
input/output error is detected dur- 
ing compilation. If the error 
occurred on SYSPUNCH, compilation 
is continued and the COMPILATION 
TERMINATED portion of the message 
is not printed. The condition code 
is 8. If the error occurred on 
SYSIN, SYSPRINT, or SYSLIN, compi- 
lation is terminated. The condi- 
tion code is 16. .xxx...xxx is the 
character string formatted by the 
SYNADAF macro instruction. For an 
interpretation of this information, 
see the publication IBM System/360 
Operating System: Supervisor __and 


eS tee TREE ES hace CE SA Sommer Eee ames Smee Mant GREE COED EERE CURES Heri CREST Gann HELGE CEES fubioie eine Ai Fate GRORAY Meir OGG MOREE ARLE widen STi MES 


‘Form C28-6647. 


IEYO35I UNABLE TO OPEN ddname 


ee ee ee ee SS 


This message is produced when the 
required ddname data definition 
card is missing or the ddname is 


misspelled. 
PHASE 1 _OF THE COMPILER: _PARSE_ (TEYPAR) 


The first processing phase of the 
FORTRAN IV (G) compiler, Parse, accepts 
FORTRAN statements in card format as input 
and translates them. Specification state- 
ments are translated to entries on rolls 
which define the symbols of the program. 
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Active statements are translated to Polish 
notation. The Polish notation and roll 
entries produced by Parse are its primary 
output. In addition, Parse writes out all 
erroneous statements and the associated 
error messages. Parse produces a full 
source module listing when the SOURCE 


option is specified. 


The following description of Parse con- 
Sists of two parts. The first part, "Flow 
of Phase 1," describes the overall logic of 
the phase by means of both narrative and 
flowcharts. 


The second part, “Output from Phase 1," 
describes the Polish notation produced by 
Parse. The construction of this output, 
from which subsequent phases produce object 
code, is the primary function performed by 
Parse. See Appendix cC for the Polish, 
format for each statement type. 


The source listing format and the error 
messages produced by Parse are also 
discussed. oy 


The rolls manipulated by Parse are 
listed in Table 3 and are mentioned in the 
following description of the phase. At the 
first mention of a roll, its nature is 
briefly described. See Appendix B for a 
complete description of a format of a roll. 


Table 3. Rollis Used by Parse 

a ee ee ee 1 
}Roll }Roll | 
|]No. Roll Name |No. Roll Name | 
, 0 Lib { 28 Local Sprog | 
| 21 Source | 29 Explicit | 
} 2 Ind Var { 30 Call Lbl | 
! 4 Polish {| 31 Namelist Names | 
| 5 Literal Const | 32 Namelist Items | 
{ 6 Hex Const | 33 Array Dimension | 
| 7 Global | 35 Temp Data Name _ | 
] 8 Fx Const 1} 36 Temp Polish | 
] 9 Fl Const | 37 Equivalence | 
|} 10 Dp Const | 38 Used Lib | 
} 11 Complex Const | Function | 
} 12 Dp Complex | 39 Common Data | 
] Const { 40 Common Name | 
} 13 Temp Name | 412 Implicit | 
{ 14 Temp } 42 Equivalence | 
| 14 Error Temp | offset | 
| 15 Do Loops Open | 43. Lbl | 
] 16 Error Message | 44 Scalar | 
{ 17 Error Char | 45 Data Var | 
} 18 Init | 46 Literal Temp | 
{| 19 Xtend Lbl | 53 Format | 
| 20 Xtend Target j| 54 Script | 
] Lbl | 55 Loop Data | 
} 22 Array | 56 Program Script | 
| 24 Entry Names [| 59 At | 
} 25 Global Dmy | 60 Subchk | 
} 26 Error { 63 After Polish | 
} 27 Local Dmy | | 
Liat eee eee eee dee Oe een eee eee eed Fe J 
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FLOW OF PHASE 1, CHART O4 


START COMPILER initializes the operation 
Of Parse, setting flags from the user 
options, reading and writing out (on 
Option) any initial comment cards in the 
source module, and leaving the first card 
of the first statement in an input area. 
This routine concludes with the transfer of 
control to STATEMENT PROCESS. 


STATEMENT PROCESS (G0631) controls’ the 
operation of Parse. The first routine 
called by STATEMENT PROCESS is PRINT AND 
READ SOURCE. On return from that routine, 
the previous source statement and its error 
messages have been written out (as defined 
by user options), and the statement to be 
processed (including any comment’ cards) 
plus the first card of the next statement 
will be on the SOURCE roll. (This roll 
holds the source statements, one character 
per byte.) STATEMENT PROCESS then calls 
STA INIT to initialize for the processing 
of the statement and LBL FIELD XLATE to 
process the label field of the statement. 





On return from LBL FIELD XLATE, if an 
error has been detected in the label field 
Or in column 6, STATEMENT PROCESS restarts. 
Otherwise, STA XLATE and STA FINAL are 
called to complete the translation of the 
source statement. On return from STA 
FINAL, if the last statement of the source 
module has not been scanned, STATEMENT 
PROCESS restarts. 


When the last card of a source module 
has been scanned, STATEMENT PROCESS deter- 
mines whether it was an END card; if not, 
it writes a message. The routine then sets 
a flag to indicate that no further card 
images should be read, and calls PRINT AND 
READ SOURCE to write out the last statement 
for the source listing (depending on wheth- 
er the SOURCE option was specified or was 
indicated as the default condition at sys- 
tem generation time). 


When no END card appears, two tests are 
made: (1) If the last statement was an 
Arithmetic IF statement, the Polish nota- 
tion must be moved to the AFTER POLI 
roll; (2) If the last statement was of a 
type which does not continue in sequence to 
the next statement (e.g., GO TO, RETURN), 
no code is required to terminate the object 


module, and the Polish notation for an END 
Statement is constructed on the POLISH 
roll. If the NEXT STA LBL FLAG is off, 


indicating that the last statement was not 
of this type, the Polish notation for a 
STOP or RETURN statement is constructed on 
the POLISH roll, depending on whether the 
source module is a main program or a 
Subprogram. | 


After the Polish notation for the STOP 
or RETURN has been constructed on the 
POLISH roll, the Polish notation for the 


END statement is then constructed, 


Parse keeps track of all inner DO loops 
that may possibly have an extended range. 
Parse tags the LABEL roll entries for those 


labels within the DO loops that are poss- 
ible re-entry points from an extended 
range. These tags indicate the points at 


which general registers 4 through 7 must be 
restored. The appropriate LOOP DATA roil 
groups are also tagged to indicate to the 
Gen phase which of the inner DO loops may 
possibly have an extended range. Gen then 
produces object code to save registers 4 
through 7. 


After processing the last statement of 
the source module, a pointer to the LOOP 

_VAR roll is released, | and, i 
source module waS a main program, the 
routine REGISTER IBCOM (G0O707) is called to 
record IBCOM as a required subprogram. For 
all source modules, the information 
required for Allocate is then moved to the 
appropriate area, and the Parse phase is 
terminated. 


PRINT and READ SOURCE, Chart BA 


PRINT AND READ SOURCE (G0837) serves 


three functions: 


1. It writes out the previous’ source 
Statement and its error messages as 
indicated by user options. 


2e It reads the new source statement to 
be processed, including any comment 
cards, as well as the first card of 
the statement following the one to be 
processed. 


3. It performs an initial classification 
of the statement to be processed. 


The statement to be written out is found 
on the SOURCE roll. One line at a time is 
removed from this roll and placed in a 
120-byte output area from which it is 
written out. The new statement being read 
into the SOURCE roll is placed in an 


80-byte input area and replaces the state- 
ment being written out as space on the 
SOURCE roll becomes available. Any blank 


card images in the source module are elimi- 
nated before they reach the SOURCE roll. 
Comment cards are placed on the SOURCE roll 
exactly as they appear in the source 
module. The last card image placed on the 
SOURCE roll is the first card of the source 
statement following the one about to be 
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processed; therefore, any comment cards 
that appear between two statements are 
processed with the statement which precedes 
them. When an END card has been read, no 
further reading is performed. 


The initial classification of the state- 
ment that occurs during the operation of 
this routine determines, at most, two 
characteristics about the statement to be 
processed: (1) If it is a statement of the 
assignment type, i.e., either an arithmetic 
or logical assignment statement or a state- 
ment function, or (2) If it is a Logical IF 
Statement, whether the statement "S" (the 
consequence of the Logical IF) is an 
asSignment statement. Two flags are set to 
indicate the results of this classification 
for later routines. 


At the conclusion of this routine, all 
of the previous source statements and their 
errors have been removed from the SOURCE 
roll and are written out. In addition, all 
of the statements to be processed (up to 
and including the first card of the state- 
ment following it) have been placed on the 
SOURCE roll. 


STA INIT, Chart BB 


STA INIT {(G0632) initializes for the 
Parse processing of a source statement. It 
sets the CRRNT CHAR CNT and the LAST CHAR 
CNT to 1, and places the character from 
column 1 of the source card in the variable 
CRRNT CHAR. 


It then determines, from a count made 
during input of the statement, the number 
of card images in the statement; multiply- 
ing this value by 80, STA INIT sets up a 
variable (LAST SOURCE CHAR) to indicate the 
character number of the last character in 
the statement. 

The routine finally releases the TEMP 
NAME roll and sets several flags and 
variables to constant initial values before 
returning to STATEMENT PROCESS. 


LBL_FIELD XLATE, Chart BC 


LBL FIELD XLATE (G0635) first saves the 
address of the current WORK and EXIT roll 
bottoms. It then inspects the first six 
columns of the first card of a statement. 
It determines whether a label appears, and 
records the label if it does. If any 
errors are detected in the label field or 
in column 6 of the source card, LBL FIELD 
XLATE records these errors for later print- 
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ing and returns to STATEMENT PROCESS 
(through SYNTAX FAIL) with the ANSWER BOX 
set to false. 


Pointers to all labels within DO loops 
are placed on the XTEND LBL roll. Labels 
that are jump targets (other than jumps 
within the DO loop) are tagged to indicate 
to Gen at which points to restore general 


registers 4 through 7. 


If the statement being processed is the 
statement following an Arithmetic IF state- 
ment, LBL FIELD xXLATE moves the Polish 
notation for the Arithmetic IF statement to 


‘the AFTER POLISH roll after adding a point- 


er to the label of the present statement to 
it. 


STA XLATE, Chart BD 


(G0636) 
SOURCE 


Under the control of STA XLATE 
the source module statement on the 
roll is processed and the Polish notation 
for that statement is produced on _ the 
POLISH roll, which holds Polish notation 
for source statements, one statement at a 
time. Errors occurring in the statement 
are recorded for writing on the source 
module listing. 


The addresses of the bottoms of the WORK 
and EXIT rolls are saved. Then, if the 
statement is of the assignment type (the 
first flag set by PRINT AND READ SOURCE is 
on), STA XLATE ensures that a BLOCK DATA 
subprogram is not being compiled and falls 
through to ASSIGNMENT STA XLATE (G0637). 
If a BLOCK DATA subprogram is being com- 
piled, STA XLATE returns after recording an 
invalid statement error message. If the 
Statement is not of the assignment type, a 
branch is made to LITERAL TEST (G0640), 
which determines the nature of the state- 
ment from its first word(s), and branches 
to the appropriate routine for processing 
the statement. The names of the statement 
processing routines indicate their func- 
tions; for example, DO statements are 
translated by DO STA XLATE, while Computed 
GO TO statements are translated by CGOTO 


STA XLATE. 
With the exception of LOGICAL IF STA 
XLATE, the statement processing routines 


terminate their operation through STA XLATE 
EXIT. LOGICAL IF STA XLATE moves’ the 
second flag set by PRINT AND READ SOURCE 
(which indicates whether the statement “S" 
is an assignment statement) into the first 
flag, and calls STA XLATE as a subroutine 
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for the translation of the statement "SS." 
When all of the Logical IF statement, 
including "S," has been translated, LOGICAL 
IF STA XLATE also terminates through STA 
XLATE EXIT. 


STA XLATE 
whether 


(G0723) determines 
the statement are of a 


EXIT 
errors in 


severity level which warrants discarding 
the statement. If such errors exist, and 
the statement is active (as opposed to a 
specification statement), the Polish nota- 
tion produced for the statement is removed 
and replaced by an invalid statement driver 
before a return is made to STATEMENT 
PROCESS. Otherwise, the Polish notation is 
left intact, and a return is made to 
STATEMENT PROCESS. 
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STA_ FINAL, Chart BE 


STA FINAL (G0633) increases the state- 
ment number by one for the statement just 
processed. It then determines whether any 
Polish notation has been produced on the 


POLISH roll; if no Polish notation is 
present, STA FINAL returns to STATEMENT 
PROCESS. 

If the statement produced Polish nota- 


tion of a type which may not close a DO 


loop, STA FINAL bypasses the check for the 
close of a DO loop. Otherwise, STA FINAL 
determines whether the label (if there is 
one) of the statement corresponds to the 
label of the terminal statement of a DO 
loop. If so, the label pointer (or poin- 
ters, if the statement terminates several 


DO loops) is removed from the DO LOOPS OPEN 
roll, which holds pointers to DO loop 
terminal statements until the terminal 
statements are found. 





When the statement is the target of a DO 
loop, extended range checking is continued. 
DO loops which have no transfers out of the 
loop are eliminated as extended range can- 
didates. In addition, the nest level count 
is reduced by one and the information 
concerning the array references in the 
closed loop is moved from the SCRIPT roll 
to the PROGRAM SCRIPT roll. 


STA FINAL then places the label pointer 
(if it is required) on the Polish notation 
for the statement, and, at STA FINAL END, 
adds the statement number to the Polish. 


Except when the statement just processed 
was an Arithmetic IF statement, STA FINAL 
END terminates its operation by moving the 
Polish notation for the statement to the 
AFTER POLISH roll. In the case of the 
Arithmetic IF, the Polish notation is not 
moved until the label of the next statement 
has been processed by LBL FIELD XLATE. 
When the Polish notation has been moved, 
STA FINAL returns to STATEMENT PROCESS. 
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ACTIVE END STA XLATE (G0642) is invoked 
by STATEMENT PROCESS when the END card has 
been omitted and the last statement in the 


source module has been read. If the last 
Statement was not a branch, the routine 
determines whether a subprogram or a main 


program is being terminated. If it is a 
subprogram, the Polish notation for a 
RETURN is constructed; if it is a main 
program, the Polish notation for a STOP 
statement is constructed. If the last 
statement was a branch, this routine 
returns without doing anything. 


PROCESS_POLISH, Chart _BG 


PROCESS POLISH (GO844) moves a count of 
the number of words in the Polish notation 
for a statement, and the Polish notation 
for that statement, to the AFTER POLISH 
roll. 


OUTPUT FROM PHASE 1 


The output from Parse is the Polish 
notation and roll entries produced for 
source module active statements, the roll 
entries produced for source module specifi- 
cation statements, and the source module 
listing (on option SOURCE) and error mes- 


Sages. The following paragraphs describe 
the Polish notation and the source and 
error listings. See Appendix B for 


descriptions of roll formats. 


Polish Notation 


The primary output from Phase 1 of the 


compiler is the Polish notation for the 
source module active statements. This 
representation of the statements is pro- 


duced one statement at a time on the POLISH 
roll. At the end of the processing of each 
statement, the Polish notation is trans- 
ferred to the AFTER POLISH roll, where it 
is held until it is required by later 
phases of the compiler. 


The format of the Polish notation dif- 
fers from one type of statement to another. 
The following paragraphs describe the gen- 
eral rules for the construction of Polish 
notation for expressions. The specific 
formats of the Polish notation produced for 
the various FORTRAN statements are given in 
Appendix C. 


Polish notation is a method of writing 
arithmetic expressions whereby the tradi- 
tional sequence of “operand," “operation" 
"operands" is altered to a functional nota- 
tion of “operation" “operandz2" "“operand,." 
Use of this notation has the advantage of 
eliminating the need for brackets of 
various levels to indicate the order of 
operations, Since any “operand" may itself 
be a sequence of the form "“operation" 
"operand" "“operand," to any level of 
nesting. 


which do not 
parentheses, 
used to con- 
for an 


Assuming expressions 
include any terms enclosed in 
the following procedure is 
struct the Polish notation 
expression: 
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1. At the beginning of the expression, an 


artificial driver is placed on the 
WORK roll; this driver is the Plus and 
Below Phony driver, and has a lower 
forcing. strength than any arith- 
metic or logical operator. (Forcing 
strengths are given in Table 1.) 


2. As each variable name or constant in 
the expression is encountered, a 
pointer to the defining group is 
placed on the POLISH roll. 


3. When 
corresponding driver is 
and it is compared with the 
driver on the WORK roll: 


an operator is encountered, the 
constructed 
last 


ae If the current driver has a higher 
forcing strength than the driver 


on the bottom of the WORK roll 
(the “previous"™ driver, for the 
purposes of this discussion), the 


current driver is added to the 
WORK roll and the analysis of the 
expression continues. 


be. If the current driver has a forc- 
ing strength which is lower than 
Or equal to the forcing strength 
of the previous driver, then: 


(1) If the previous driver is the 
Plus and Below Phony driver, 
the current driver replaces 
the previous driver on the 
WORK roll (this situation can 
only occur when the current 
driver is an EOE driver, indi- 
cating the end of the expres- 
sion) and the analysis of the 
expression is terminated. 


(2) If the previous driver is not 
the Plus and Below Phony driv- 
er, the previous driver is 


removed from the WORK roll and 


placed on the POLISH roll, and 
the comparison of the current 
driver against the previous 
driver is repeated (that is, 
using the same current driver, 
this procedure is repeated 
from 3). 


The sequence of operations which occurs 
when the analysis of an expression is 


terminated removes the EOE driver from the 
WORK roll. | 
Example 1: The expression A + B- produces 
the Polish notation 

A 

B 

+ 
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where: 


A represents a pointer to the defining 
group for the variable A 


+ represents the Add driver. This nota- 
tion is produced from the top down; when it 
is read from the bottom up, the sequence 
described above for Polish notation is 
satisfied. 3 


Explanation: The following operations 
occur in the production of this Polish 
notation: 


1. The Plus and Below Phony driver is 
placed on the WORK roll. 


2. A pointer to A is placed on the POLISH 
roll. 


3. An Add driver is constructed and com- 
pared with the Plus and Below Phony 
driver on the bottom of the WORK roll; 
the Add driver has a higher forcing 
strength and is therefore added to the 
WORK roll (according to rule 3a, 
above). 


4, A pointer to B is placed on the POLISH 
roll. | 


5. An EOE (end of expression) driver is 
constructed and compared with the Add 
driver on the bottom of the WORK roll; 
the EOE driver has a lower forcing 
strength, and the Add driver is there- 
fore removed from the WORK roll and 
added to the POLISH roll (rule 3b2). 


6. The EOE driver is compared with the. 
Plus and Below Phony driver on the 
bottom of the WORK roll; the EOE 
driver has a lower forcing strength, 
and therefore (according to rule 3b1) 
replaces the Plus and Below Phony 
driver on the WORK roll. 


7. The analysis of the expression is 
terminated and the EOE driver is 
removed from the WORK roll. The 


Polish notation for the expression is 
on the POLISH roll. 


Example 2: The expression A + B /C 


produces the Polish notation 


+nNQW0 YP 


which, is +/cC B 


A. 


read from the bottom up, 


Explanation: The following operations 
occur in the production of this Polish 
notation: 

1. The Plus and Below Phony driver is 


placed on the WORK roll. 


2. A pointer to A is placed on the POLISH 
roll. 


3. An Add driver is constructed and com- 
pared with the Plus and Below Phony 
driver; the Add driver has the higher 
forcing strength and is placed on the 
WORK roll. 


4. A pointer to B is placed on the POLISH 
roll. 


constructed and 
Add driver; the 


5. A Divide driver is 
compared with the 


Divide driver has the higher forcing 
strength and is placed on the WORK 
roll. 

6. A pointer to C is placed on the POLISH 
roll. 

7. #$An EOE driver is constructed and com- 
pared with the Divide driver; since 
the EOE driver has the lower forcing 


strength, the Divide driver is moved 
to the POLISH roll. 


8. The EOE driver is compared with the 
Add driver; since the EOE driver has 
the lower forcing strength, the Add 
driver is moved to the POLISH roll. 


9. The EOE driver is compared with the 
Plus and Below Phony driver; since the 
FOE driver has the lower forcing 
Strength, it replaces the Plus and 
Below Phony driver on the WORK roll, 
and the analysis of the expression 
terminates with the removal of one 
group from the WORK roll. 


Example 3: The expression A 7 B -C 


produces the Polish notation 


1 ANW Pp 


which, read from the bottom up, is - C / B 
A. 


Explanation: The following operations 
occur in the production of this Polish 


notation: 


1. The Plus and Below Phony driver is 
placed on the WORK roll. 


2. A pointer to A is placed on the POLISH 
roll. 


3. A Divide driver is constructed and 
compared with the Plus and Below Phony 
driver; the Divide driver has the 
higher forcing strength and is added 
to the WORK roll. 


4. A pointer to B is placed on the POLISH 
roll. 


5. A Subtract driver is constructed and 
compared with the Divide driver; the 
Subtract driver has a lower forcing 
strength, therefore the Divide driver 
is moved to the POLISH roll. 


6. The Subtract driver is compared with 
the Plus and Below Phony driver; the 
Subtract driver has the higher forcing 
Strength and is added to the WORK 
roll. 


7. A pointer to C is placed on the POLISH 
roll. 


8. An EOE driver is constructed and com- 
pared with the Subtract driver; since 
the EOE driver has a lower forcing 
strength, the Subtract driver is moved 
to the POLISH roll. 


9. The EOE driver is compared with the 
Plus and Below Phony driver; the EOE 
driver replaces the Plus’ and Below 
Phony driver on the WORK roll and the 
analysis of the expression is ter- 
minated. 


Recursion is used in the translation of 
an expression when a left parenthesis is 
found; therefore, the term enclosed in the 
parentheses is handled aS a separate 
expression. The following three examples 
illustrate the resulting Polish notation 


when more complicated expressions are 
transformed: 

Expression Polish Notation 

1. A-B* (C+D) ~*+DCBA 

2. (A-B)/(C¥D) /*DC-BA 


3. X/Z/ (X-C) +C¥¥X +**XC/-CX/ZX 
The following should be noted with re- 
spect to the exponentiation operation: 


e Exponentiations on the same level are 
scanned right to left. Thus, the 
expression A**B**C**D is equivalent to 
the expression A**(B**(C*¥*D)). 


e Two groups are added to the POLISH roll 
to indicate each exponentiation opera- 
tion. The first of these is the Power 
driver; the second iS a pointer to the 


group on the global subprogram roll 
(GLOBAL SPROG roll) which defines’ the 
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required exponentiation routine. Thus, 
the expression A ** B produces the 
following Polish notation: 


Pointer to A 
Pointer to B 
Power driver 
Pointer to exponentiation routine 


The concept of Polish notation is 
extended in the FORTRAN IV (G) compiler to 
include not only the representation of 
arithmetic expressions, but also the repre- 
sentation of all parts of the active state- 
ments of the FORTRAN language. The parti- 
cular notation produced for each type of 
statement is described in Appendix C. Once 
an entire source statement has been pro- 
duced on the POLISH roll, phase 1 copies 
this roll to the AFTER POLISH roll and the 
processing of the next statement begins 
with the POLISH roll empty. 


Source Listing 


The secondary 
source module listing. 
is requested by the user (by means of the 
option SOURCE), source module cards are 
listed exactly as they appear on the input 
data set with error messages added on 
separate lines of the listing. If no 
source module listing is requested, Parse 
writes only erroneous statements and their 
error messages. 


output from Parse is the 
If a source listing 


The following paragraphs describe the 
error recording methods used in phase 1, 
the format of the source listing and the 
error messages generated. 


ERROR RECORDING: As a rule, Parse attempts 
to continue processing source statements in 
which errors are found. However, certain 
errors are catastrophic and cause Parse to 
terminate processing at the point in the 
statement where the error occurred. 


Statements which cannot be 
properly are replaced by a 
FORTRAN error routine IHCIBERH. 


compiled 
call to the 


Throughout Parse, three techniques of 
error recording are used. The first of 
these is used when the error is not cata- 
strophic. This method records’ the char- 
acter position in the statement at which 
the error was detected (by means of IEYLCE, 
IEYLCT, or IEFYLCF instructions) and the 
number of the error type on the ERROR roll; 
after recording this information, Parse 
continues to scan the statement. 


The second and third techniques of error 
recording are used when the error detected 
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is catastrophic, at least to part of the 
statement being scanned. The second tech- 
nique is a jump to an error recording 
routine, such as ALLOCATION FAIL or SUB- 
SCRIPTS FAIL, which records the error and 
jumps to FAIL. The third technique is the 
use of one of the instructions, such as 
IEYCSF or IEYQSF, which automatically jump 
to SYNTAX FAIL if the required condition is 


not met. SYNTAX FAIL also exits through 
FAIL. 
If the statement being processed is 


active and errors have been detected in it, 
FAIL removes any Polish notation which has 
been produced for the statement from the 
POLISH roll, replacing it with an error 
indicator. FAIL then restores WORK and 
EXIT roll controls to their condition at 
the last time they were saved and returns 
accordingly. 


Some translation routines modify the 
action of the FAIL routine through the use 
of the IEYJPE instruction so that FAIL 
returns immediately to the location follow- 
ing the IEYJPE instruction. The transla- 
tion routine can then resume the processing 
of the statement from that point. 


FORMAT OF THE SOURCE MODULE LISTING: Error 
information for a source module card con- 


taining errors appears on the listing lines 
immediately following that card. For each 
error encountered, a $ sign is printed 
beneath the active character preceding the 
one which was being inspected when the 
error was’ detected. The only exception 
would be in the case of a SYNTAX error. In 
such a case, the $ sign undermarks’ the 
character being inspected when the error is 
detected. The listing line which follows 
the printed card contains only the § _ sign 
markers. 


The next line of the listing describes 
the marked errors. The errors are numbered 
within the card (counting from one for’ the 
first error marked); the number is followed 
by a right parenthesis, the error number, 
and the type of the error. Three errors 
are described on each line, for as many 
lines aS are required to list all the 
marked errors on the source card. 


The following is an illustration of the 
printed output from phase 1: 


eS 


DIMENSION ARY(200), BRY(200) CRY(5,10,10) 


> 
1) IEYOO4I COMMA 


IF (AA + BB) 15, 20, 250000 
$ 
1) IEYO10I SIZE 
ARY(J) = BRY 
$ 
1) ITEYOO2T LABEL 2) IEYO12I SUBSCRIPT 
GTO 30 


$ 
1) ZIEYO13I SYNTAX 


ERROR TYPES: The types of errors detected 
and reported by Parse are described in the 
following paragraphs. For each error type, 
the entire message which appears on _ the 
source output is given; the condition code 
and a description of the causes of this 
error follows the message. 


TEYO01I ILLEGAL TYPE: This message is 
associated with the source module statement 
when the type of a variable is not correct 
for its usage. Examples of situations in 
which this message would be given are: (1) 
The variable in an Assigned GO TO statement 
is not an integer variable; (2) In an 
assignment statement, the variable on the 
left of the equal sign is of logical type 
and the expression on the right side is 
not. The condition code is 8. 


IEYOO2T LABEL: This message appears with a 
statement which should be labeled and is 
not. Examples of such statements are: (1) 
A FORMAT statement; (2) The statement fol- 
lowing a GO TO statement. The condition 
code for the error is 0. 


TEYOO3I NAME LENGTH: The name of a vari- 
able, COMMON block, NAMELIST, or subprogram 
exceeds Six characters in length. If two 
variable names appear in an expression 
without a separating operation symbol, this 
message is produced. The condition code is 
ue 


IEYOO4I COMMA: A comma is supposed to 
appear in a statement and it does not. The 
condition code is 0. 


IEYOO5SI ILLEGAL LABEL: 
label is invalid for example, if an attempt 
is made to branch to the label of a FORMAT 
statement, ILLEGAL LABEL is produced. The 
condition code is 8. 


The usage ofa 











IEYOO6I DUP x A label appearing 
in the label field of a statement is 
already defined (has appeared in the label 
field of a previous statement). The condi- 
tion code is 8. 


ITEYOO7I ID CONFLICT: 


ITEYOO9I ORDER: 


ITEYO10I SIZE: 


The name of a vari- 
able or subprogram is used improperly, in 
the sense that a previous statement or a 
previous portion of the present statement 
has established a type for the name, and 
the present usage is in conflict with that 
type. Examples of such situations are: 
(1) The name listed in a CALL statement is 
the name of a variable, not a subprogram; 
(2) A single name appears more than once in 
the dummy list of a statement function; (3) 
A name listed in an EXTERNAL statement has 


already been defined in another context. 
The condition code is 8. 

LTEYO008I_ ALLOCATION: Storage assignments 
specified by a source module statement 


cannot be performed due to an inconsistency 
between the present usage of a variable 
name and some prior usage of that name, or 
due to an improper usage of a name when it 


first occurs in the source module. 
Examples of the situations causing the 
error are: (1) A name listed in a COMMON 


been listed in another COMMON 
2) A variable listed in an EQUIVA- 
Statement is followed by more than 
The condition code is 8. 


block has 
block; 
LENCE 
seven subscripts. 


The statements of a source 
module are used in an improper sequence. 
This message is produced, for example, 
when: (1) An IMPLICIT statement appears as 


anything other than the first or second 
statement of the source module; (2) An 
ENTRY statement appears within a DO loop. 


The condition code is 8. 


A number used in the source 
module does not conform to the legal values 
for its use. Examples are: (1) The size 
specification in an Explicit specification 
statement is not one of the acceptable 
values; (2) A label which is used in a 
statement exceeds the legal size fora 
Statement label; (3) An integer constant is 
too large. The condition code is 8. 

ITEYO11I0 UNDIMENSIONED: A variable name 
indicates an array (1.e., subscripts follow 
the name), and the variable has not been 


dimensioned. The condition code is 8. 

ITEY012I SUBSCRIPT: The number of sub- 
scripts used in an array reference is 
either too large or too small for the 


array. The condition code is 8. 

The statement or part of a 
refers does not 
If a state- 


ITEY0131I SYNTAX: 
statement to which it 
conform to FORTRAN IV syntax. 


ment cannot be identified, this error mes- 
sage is used. Other cases in which it 
appears are: (1) A non-digit appears in 


the label field; (2) Fewer than three 


labels follow the expression in an Arith- 
metic IF statement. The condition code is 
8. 
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ITEYO014I CONVERT: In a DATA statement or in 
an Explicit specification statement con- 
taining data values, the mode of the con- 
stant is different from the mode of the 
variable with which it is associated. The 


compiler converts the constant to the 
correct mode. Therefore, this message is 
Simply a notification to the programmer 
that the conversion is performed. The 


condition code is 0. 


The source module 
statement. The 


IEYO015I NO END CARD: 
does not contain an END 
condition code is 0. 


IEYO016I ILLEGAL STA.: The statement to 
which it is attached is invalid in the 
context in which it has been used. 
Examples of situations in which this mes- 
Sage. appears are: (1) The statement S ina 
Logical IF statement (the result of the 
true condition) is a specification state- 
ment, a DO statement, etc.; 2) An ENTRY 
statement appears in the source module and 
the source module is not a subprogram. The 
condition code is 8. 


IEY017I ILLEGAL STA. WRN  : A RETURN I 
statement appears in any source module 
other than a SUBROUTINE subprogram. The 
condition code is 0. 


ITEY018I NUMBER _ ARG: A reference to a 
library subprogram appears with the inco- 
rrect number of arguments specified. The 
condition code is 4. 


IEYO27I CONTINUATION CARDS DELETED: More 
than 19 continuation lines were read for 1 


statement. All subsequent lines are 
skipped until the beginning of the next 
statement is encountered. The condition 


code is 8. 


TEY033I COMMENTS DELETED: More than 30 
comment lines were read between the initial 
lines of 2 consecutive statements. The 
31st comment line and all subsequent com- 
ment lines are skipped until the beginning 
of the next statement is encountered. 
(There is no restriction on the number of 
comment lines preceding the first state- 
ment.) The condition code is 0. 


IEYO036I ILLEGAL LABEL WRN: The label on 
this nonexecutable statement has no valid 
use beyond visual identification, and may 
produce errors in the object module if the 


same label is the target of a branch-type 
Statement. (Only branches to executable 
statements are valid.) This message is 


produced, for example, when an END 
ment is labeled. 
a warning only. 


state- 
The message is issued as 
The condition code is 4. 
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PHASE 2 OF THE COMPILER: ALLOCATE (IEYALL) 


Phase 2 of the compiler performs’ the 
assignment of storage for the variables 
defined in the source module. The results 
of the allocation operations are entered on 
tables which are left in storage for the 
next phase. In addition, Allocate writes 
(on option) the object module ESD cards, 
the TXT cards for NAMELIST tables, literal 
constants, and FORMAT statements, and pro- 
duces error messages and storage maps 
(optionally) on the SYSPRINT data set. 


The following paragraphs describe the 
operations of Allocate in two parts. The 
first part, "Flow of Phase 2," describes 
the overall logic of the phase by means of 
narrative and flowcharts. 


The second part, “Output from Phase 2," 
describes the error messages and memory 
maps which are produced on the source 
module listing during the operation of the 
phase, as well as the ESD and TXT cards 
produced. It also describes the types of 
error detection performed during Allocate. 


Rolls manipulated by Allocate are listed 
in Table 4, and are briefly described in 


context. Detailed descriptions of roll 
structures are given in Appendix B. 
Table 4. Rolis Used by Allocate 

Sg nena eaten i apr eat PR I ee RT er te eo " 
{Roll {Roll | 
|No. Roll Name {No. Roll Name | 
{ 1 Source ] 39 Halfword | 
|} 5 Literal Const jj] Scalar | 
1 7 Global Sprog 1; 40 Common Name | 
| 14 Temp } 41 Implicit | 
| 15 Do Loops Open | 42 Equivalence | 
} 18 Init ] Offset | 
{| 19 Equiv Temp } 43 Lbl | 
{| 20 Equiv Hold } 44 Scalar | 
{j 21 Base Table { 45 Data Var | 
} 22 Array } 47 Common Data | 
|} 23 Dmy Dimension || Temp | 
} 24 Entry Names |} 48 Namelist | 
] 25 Global Dmy | Allocation | 
} 26 Error Lbl } 48 Common Area | 
| 27 Local Dmy } 49 Common Name | 
{ 28 Local Sprog 1 Temp | 
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FLOW OF PHASE 2, CHART 05 

START ALLOCATION (G0359) controls’ the 
Operation of the Allocate phase. The pri- 
mary function of this routine is to call 


the subordinate routines which actually 
perform the operations of the phase. 


The operation of Allocate is divided 
into three parts: the first part performs 
initialization; the second part (called 
pass 1) makes an estimate of the number of 
base table entries required to accommodate 
the data in the object module; the third 
part actually assigns storage locations for 
the object module components, leaving indi- 
cations of the assignment in main storage 
for use by subsequent phases. 


The first part of Allocate‘s operation 
is performed by calling the routines ALPHA 
LBL AND L SPROG, PREP EQUIV AND PRINT 
ERRORS, BLOCK DATA PROG ALLOCATION, PREP 
DMY DIM AND PRINT ERRORS, PROCESS DO LOOPS, 
PROCESS LBL AND LOCAL SPROGS, BUILD PROGRAM 
ESD, ENTRY NAME ALLOCATION, COMMON 
ALLOCATION AND OUTPUT, and EQUIV ALLOCATION 
PRINT ERRORS. 


After return from EQUIV ALLOCATION PRINT 
ERRORS, START ALLOCATION initializes for 
and begins pass 1. The variable PROGRAM 
BREAK, which is used to maintain the rela- 
tive address being assigned to an object 
module component, is restored after being 
destroyed during the allocation of COMMON 
and EQUIVALENCE. The groups in the BASE 
TABLE roll (which becomes the object module 
base table) are counted, and the value ten 
is added to this count to provide an 
estimate of the size of the object module 
base table. The BASE TABLE roll is’ then 
reserved so that groups added to the roll 
can be separated from those used in the 
count. The value one is assigned to the 
variable AREA CODE, indicating that storage 
to be assigned is all relative to the 
beginning of the object module and carries 
its ESD number. 


are complete, 
BASE AND BRANCH 
return from this 


When these operations 
START ALLOCATION calls 
TABLE ALLOC, and upon 
routine again increases the variable 
PROGRAM BREAK by the amount of storage 
allocated to EQUIVALENCE. START ALLOCATION 


continues its operation by calling BUILD 
ADDITIONAL BASES, PREP NEMELIST, SCALAR 
ALLOCATE, ARRAY ALLOCATE, PASS 1 GLOBAL 
SPROG ALLOCATE, SPROG ARG ALLOCATION, 
LITERAL CONST ALLOCATION and FORMAT 
ALLOCATION. 

After the operation of FORMAT 
ALLOCATION, the last part of Allocate is 
begun. The variable PROGRAM BREAK is re- 


initialized to the value it was assigned 


prior to pass 1. The BASE TABLE roll 
groups are counted to determine the total 
Size of the roll after groups have been 


added by pass 1; again, five extra groups 
(or ten words) are added to the count to 
provide for data values which will appear 
in the object module, but which are not yet 
defined. The PASS 1 FLAG is then turned 
off, and START ALLOCATION calls DEBUG 
ALLOCATE, ALPHA SCALAR ARRAY AND _ SPROG, 
BASE AND BRANCH TABLE ALLOC, EQUIV MAP, 
SCALAR ALLOCATE, ARRAY ALLOCATE, GLOBAL 
SPROG ALLOCATE, SPROG ARG ALLOCATION, BUILD 
NAMELIST TABLE, LITERAL CONST ALLOCATION, 
and FORMAT ALLOCATION. 


At RELEASE ROLLS, START ALLOCATTON con- 
cludes its operation by releasing rolls, 
increasing the PROGRAM BREAK to ensure that 
the next base begins on a doubleword boun- 
dary, and calling CALCULATE BASE AND DISP 
and BUILD ADDITIONAL BASES in order to 
guarantee that at least three bases are 
allotted for the TEMP AND CONST roll. 
After this calculation, Allocate prepares 
for and relinquishes control to Unify. 


This routine (G0543) is the first rou- 
tine called by START ALLOCATION. It moves 
the binary labels from the LBL roll and the 
statement function names from the LOCAL 

TA VAR roll The order 
of the labels and statement function names 


on their respective rolls is maintained, 
and the location on the DATA VAR roll at 
which each begins is recorded. The names 


are moved because Allocate destroys them in 


storing allocation information, and Exit 
needs them for writing the object module 
listing. 
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This routine moves the names of scalars, 
arrays, and called subprograms to the DATA 
VAR roll from the rolls on which they are 
placed by Parse. The order of names is 
preserved and the beginning location for 
each type of name on the DATA VAR roll is 
saved. 


PREP EQUIV AND PRINT ERRORS, Chart CB 


OFFSET roll (which indicates the subscripts 
used in EQUIVALENCE statements in the 
source module) is used by this routine 
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calculate the relative ad- 
referred to in 
to the EQUIVALENCE 


(G0362) to 
dresses of array elements 
statements. (Pointers 


OFFSET roll are found on the EQUIVALENCE 
roll for ail subscripted references in 
EQUIVALENCE statements. ) The addresses 


computed are relative to the beginning of 
the array. When an array reference in a 
source module EQUIVALENCE statement is out- 
Side the array, designates an excessive 
number of dimensions, or specifies too few 
dimensions, an error message is printed by 
this routine. 


BLOCK DATA PROG ALLOCATION, Chart CC 


This routine (G0361) controls the allo- 
cation of data specified in DATA, COMMON, 
DIMENSION, EQUIVALENCE, and Type statements 
in a BLOCK DATA subprogram. Since all data 


specified in EQUIVALENCE must be allocated 
under COMMON, this routine registers an 
error upon encountering on the EQUIVALENCE 


roll. The routine terminates with a jump 
to RELEASE ROLLS (G0360), which, in turn, 
terminates the Allocate phase. 
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This routine (G0365) constructs the DMY 
DIMENSION roll, placing a pointer to _ the 
ENTRY NAMES roll group defining the ENTRY 
with which a dummy array is connected, and 
a pointer to the array for each dummy array 
containing a dummy dimension. 





Before the roll is 
routine ensures that each array having 
dummy dimensions is itself a dummy, and 
that each dummy dimension listed for the 
array is either in COMMON or is a global 


constructed, this 


dummy variable in the same call. If any of 
these conditions are not satisfied, error 
messages are written. 
PROCESS DO LOOPS, Chart CE 

This routine (G0371) inspects the DO 


LOOPS OPEN roll for the purpose of deter- 
mining whether DO loops opened by the 
source module have been left unclosed; that 
is, whether the terminal statement of a DO 
loop has. been omitted from the source 
module. The DO LOOPS OPEN roll holds 
pointers to labels of target statements for 
DO loops until the loops are closed. If 
any information is present on this roll, 
loops have been left unclosed. . 
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On encountering information on the DO 
LOOPS OPEN roll, this routine records’ the 
undefined labels for listing as DO loop 
errors, and (on option) lists’ them. It 
also sets the high order bit of the TAG 
field of the LBL roll group which refers to 
the undefined label to zero; this indicates 
to Gen that the loop is not closed. 


PROCESS LBL AND LOCAL SPROGS, Chart CF 


(GO0372) constructs the 
roll, which is to become the 


This routine 
BRANCH TABLE 


object module branch table. The routine 
first processes the LBL roll. For each 
branch target label found on that roll, a 


new BRANCH TABLE roll group is constructed, 


and the label on the LBL roll is replaced 
with a pointer to the group ' constructed. 
Undefined labels are aliso detected and 


printed during this process. 


When this operation is complete, the 
LOCAL _SPROG roll (which lists the names of 
all statement functions) is inspected, and 
for each statement function, a group is 
added to the BRANCH TABLE roll, and part of 
the statement function name is placed with 


a pointer to the constructed group. 


BUILD PROGRAM ESD, Chart CG 


This routine (G0374) constructs) and 
punches the ESD cards for the object module 
itself (the program name) and for. each 
ENTRY to the object module. It also 


assigns main storage locations to the 
object module heading by increasing the 
PROGRAM BREAK by the amount of storage 
required. 


ENTRY NAME ALLOCATION, Chart CH 


This routine (G0376) does nothing if the 


source module is other than a FUNCTION 
subprogram. If, however, the source module 
is a FUNCTION, this routine places’ the 


names of all ENTRYs to the source module on 
the EQUIVALENCE roll as a single 
EQUIVALENCE set; it also ensures that the 
ENTRY name has been used as a scalar in the 


routine. If the variable has not been 
used, an appropriate error message is 
printed and the scalar variable is defined 


by this routine. 


COMMON ALLOCATION AND OUTPUT, Chart CI 


This routine (G0377) allocates all COM- 


MON storage, one block at a time, generat-— 


the name, base pointer, and displacement 
for all COMMON variables) in the process. 
Groups are added to the BASE TABLE roll as 
they are required to provide for references 
to variables in COMMON. The ESD cards for 
COMMON are constructed and written out. 
All errors in COMMON allocation are written 
on the source listing and the map of COMMON 
storage is also written (on option). 


EQUIV ALLOCATION PRINT ERRORS, Chart CK 


This routine (G0381) allocates storage 
for EQUIVALENCE variables, creating the 
EQUIVALENCE ALLOCATION roll in the process. 
For each variable appearing in an EQUIVA- 
LENCE set, except for EQUIVALENCE variables 
which refer to COMMON (which have _ been 
removed from the EQUIVALENCE roll during 
the allocation of COMMON storage), the name 
of the variable and its address are 
recorded. 


The information pertaining to EQUIVA- 
LENCE sets is stored on the EQUIV ALLOCA- 
TION roll in order of ascending addresses. 
Required bases are added to the BASE TABLE 
roll, and all remaining EQUIVALENCE errors 
are printed. 


BASE AND BRANCH TABLE ALLOC, Chart CL 


This routine (G0437) assigns main 
storage for the object module save area, 
base table, and branch table. The required 
base table entries are added as needed, 
PROGRAM BREAK iS increased, and the base 
pointer and displacement for each of these 
areas is recorded in a save area for use by 
Gen. During pass 1 of Allocate, this 
assignment of storage is tentative and 
depends on the estimate of the size of the 
base table. The second time this routine 
is operated, the actual number of base 
table entries required in the object module 
has been determined by pass 1 and the space 
allocation is final. 


SCALAR ALLOCATE, Chart CM 


Each group on the SCALAR roil is 
inspected by this routine (G0397), which 
defines all nonsubscripted variables. It 


allocates storage for the variables listed 
on the roll, except for those which are in 
COMMON or members of EQUIVALENCE sets. The 
first time SCALAR ALLOCATE operates, it 
determines the number of base table entries 
required to accommodate references to the 
object module scalar variables. The infor- 
mation on the SCALAR roll is not altered, 
nor is any other roll built or modified by 
the routine. 


At the second operation of the routine, 
the SCALAR roll is modified, and the actual 
storage locations (represented by the base 
pointer and displacement) to be occupied by 
the scalar variable are either computed and 
stored on the SCALAR roll or copied from 
the COMMON or EQUIV ALLOCATION roll to the 
SCALAR roll. 


All “call by name" dummy variables are 
placed on the FULL WORD SCALAR roll; as 
each remaining scalar 1S inspected, its 
mode is determined. If it is of size 8 or 
16 (double-precision real or single- or 
double-precision complex), storage is allo- 
cated immediately. If the variable does 
not require doubleword alignment, it is 
moved to one of three rolls depending on 
its size: FULL WORD SCALAR, HALF WORD 
SCALAR, Or BYTE SCALAR. 


When all groups on the SCALAR roll have 
been processed in this manner, the 
variables on the FULL WORD SCALAR roll, 
then the HALF WORD SCALAR roll, then the 
BYTE SCALAR roll are assigned storage. fThe 
map Of scalars is produced (on option) by 
this routine. 


ARRAY ALLOCATE, Chart CN 


This routine (G0O401), like SCALAR ALLOC- 
ATE, is called twice by START ALLOCATE. 
The first time it is called, it determines 
the number of base table entries required 
for references to the object module arrays. 
The second time the routine is operated, it 
actually assigns storage for the arrays, 
and records the appropriate base pointer 
and displacement on the ARRAY roll. 


As each array name is found on the ARRAY 
roll, it is compared with those on the 
COMMON, EQUIV, and GLOBAL DMY rolls. For 
COMMON and EQUIVALENCEd arrays, the alloca- 
tion information is copied from the appro- 
priate roll. Since all dummy arrays are 
“call by name" dummies, dummy array groups 
are always replaced with pointers to the 
GLOBAL DMY roll. For each array to _ be 
assigned storage, new base table entries 
are constructed as required. In no case is 


more than one base used for a single array. 
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Since arrays are allocated in the order 
of their appearance, some unused storage 
space may appear between consecutive arrays 


due to the required alignment. The array 
map is produced (on option) by this 
routine. 


PASS_1 GLOBAL SPROG ALLOCATE, Chart CO 


This routine (G0402) counts the groups 
on the GLOBAL SPROG and USED LIB FUNCTION 
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rolls (which hold, respectively, the non- 
library and library subprogram names 
referred to in the source module) to deter- 
mine the number of base table entries 
required for references to the subprogram 
addresses region of the object module. The 
required BASE TABLE roll groups are added. 


SPROG ARG ALLOCATION, Chart CP 


This routine (G0442) adds the number of 
arguments to subprograms (and thus, the 
number of words in the argument list area 
of the object module) to the PROGRAM BREAK, 
thus allocating storage for this portion of 
the object module. BASE TABLE roll groups 
are added as required. 


PREP NAMELIST, Chart CQ 


This routine (G0443) determines the 
amount of main storage space required for 
each object module NAMELIST table. The 
NAMELIST ALLOCATION roll is produced during 
this routine's operation; it contains, for 
each NAMELIST data item, the name of the 
item and a pointer to the SCALAR or ARRAY 
roll group defining it. If any data name 
mentioned in a NAMELIST is not the name of 
a scalar or array, the appropriate error 
message is printed by this routine. 


The NAMELIST NAMES roll is left holding 
the NAMELIST name and the absolute location 
of the beginning of the corresponding 
object module NAMELIST table. Required 
BASE TABLE roll groups are added by this 
routine. 
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This routine (GO444) is called twice by 
START ALLOCATION. Its first operation de- 
termines the number of BASE TABLE roll 
groups which should be added to cover the 


4g 


literal constants in the 
The second operation of the routine 
actually assigns storage for ail literal 
constants (except those appearing in source 
module DATA and PAUSE statements) and 
writes (on option) the TXT cards for them. 


object module. 


FORMAT ALLOCATION, Chart CS 


This routine (G0O445) is called twice by 
START ALLOCATION. The first time it is 
called is during the operation of pass 1. 
In pass 1, the PROGRAM BREAK is’ increased 
by the number of bytes occupied by each 
FORMAT. 


The second time that FORMAT ALLOCATION 
is called, each FORMAT is written out and 
the FORMAT roll is rebuilt. The base and 
displacement information anda pointer to 
the label of the FORMAT statement are the 
contents of the rebuilt FORMAT group. The 
map Of the FORMAT statements used in the 
object module is also written out (on 
option) by this routine. 


EQUIV MAP, Chart CT 


This routine (G0O441) adjusts the values 


on the EQUIVALENCE ALLOCATION roll to the 
corrected (for the correct allocation of 


the base table, since this routine operates 
after the completion of pass 1) base point- 
er and displacement, and constructs the 
BASE TABLE roll groups required. The map 
of EQUIVALENCE variables is produced (on 
option) by this routine. 


GLOBAL SPROG ALLOCATE, Chart CU 


This routine (G0403) goes through the 
GLOBAL SPROG and USED LIB FUNCTION rolls, 
inserting the base pointer and displacement 
for each of the subprograms listed there; 
this is the allocation of storage for the 
Subprogram addresses region of the object 
module. The ESD cards for the subprograms 
are written, the required BASE TABLE roll 
groups are added, anda list of the subpro- 
grams called is produced (on option). 


e 


BUILD NAMELIST TABLE, Chart CV 


This routine (G0405) operates after pass 
1 of Allocate. It uses the NAMELIST NAMES 
roll in determining the base and displace- 


each NAMELIST reference in the 
The BASE TABLE roll groups 
are added as required. The PROGRAM BREAK 
is increased as indicated, and the TXT 
cards are written out according to the base 
and displacement calculations for each 
entry on the NAMELIST ALLOCATION roll. A 
map of the NAMELIST tables is produced (on 
option) by this routine. 


ment for 
source module. 


BUILD ADDITIONAL BASES, Chart CW 


This routine (G0438) is called whenever 
it may be necessary to construct a new BASE 
TABLE roll group. It determines whether a 
new base is required and, if so, constructs 
Lt. 


DEBUG ALLOCATE, Chart CX 


This routine (G0545) processes the 
information on the INIT and SUBCHK rolls, 
marking the groups on the SCALAR, ARRAY, 
and GLOBAL DMY rolls which define the 
variables listed. When all the information 
on the SUBCHK roll has been processed, the 


routine returns. 


OUTPUT FROM PHASE 2 


The following paragraphs describe the 
output from Allocate: error messages, 
maps, and cards. Allocate also produces 
roll entries describing the assignment of 
Main storage. See Appendix B for descrip- 
tions of the roll formats. 


Error Messages Produced _by Allocate 


The source module 1listing, with error 
indications and error messages for the 
errors detected during initial processing 
of the source statements, is produced by 
phase 1 of the compiler. Certain program 


errors can occur, however, which cannot be 
detected until storage allocation takes 
place. These errors are detected and 


reported (if a listing has been requested), 
at the end of the listing by ALLOCATE; the 
error messages are described in the follow- 
ing paragraphs. 


FUNCTION ERROR: When the program being 
compiled is a FUNCTION subprogram, a check 
is made to determine whether a scalar with 
the same name as the FUNCTION and each 








ENTRY is defined. If no such scalars are 
listed on the SCALAR roll, the message 


IEY019I FUNCTION ENTRIES UNDEFINED 


source module listing. 
followed by a list of the 
The condition code is 0. 


is written on the 
The message is 
undefined names. 


COMMON __ ERRORS: Errors of two types can 
exist in the definitions of EQUIVALENCE 


sets which refer to the COMMON area. The 
first type of error exists because of a 
contradiction in the allocation specified, 
e.g.-, the EQUIVALENCE sets (A,B(6),C(2)) 
and (B(8),C(1)). The second error type is 
due to an attempt to extend the beginning 
of the COMMON area, as in COMMON A,B,C and 
EQUIVALENCE (A,F(10)). 


An additional error in the assignment of 
COMMON storage occurs if the source program 
attempts to allocate a variable to a_ 1loca- 
tion which does not fall on the appropriate 


boundary. Since each COMMON block is 
assumed to begin on a double-precision 
boundary, this error can be produced in 


either (or both) the COMMON statement and 
an EQUIVALENCE statement which refers to 
COMMON. 


When each block of COMMON 
been allocated, the message 


storage has 


ITEYO20I COMMON BLOCK / / ERRORS 


is printed if any error has been detected 
(the block name is provided). The message 
is followed by a list of the variables 
which could not be allocated due to the 
errorse The condition code is 4. 


Unclosed_DO Loops 


If DO loops are initiated in the source 
module, but their terminal statements do 
not exist, Allocate finds pointers to the 
labels of the nonexistent terminal state- 
ments on the DO LOOPS OPEN roll. If 
pointers are found on the roll, the message 


IEYO021I UNCLOSED DO LOOPS 


is printed, followed by a list of the 
labels which appeared in DO statements and 
were not defined in the source module. The 
condition code is 8. 
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UNDEFINED LABELS: If any labels are used 
in the source module but are not defined, 
they constitute label errors. Allocate 
checks for this situation. At the conclu- 
Sion of this check, the message 


IEYO22I UNDEFINED LABELS 


is printed. If there are undefined labels 
used in the source module, they are listed 
on the lines following the message. The 
condition code is 8. 


EQUIVALENCE ERRORS: Allocation errors due 
to the arrangement of EQUIVALENCE state- 
ments which do not refer to COMMON 
variables may have two causes. The first 
of these is the conflict between two EQUIV- 
ALENCE sets; for example, (A,B(6),C(3)) and 
(B(8),C(1)). 


The second is due to incompatible boun- 
dary alignment in the EQUIVALENCE set. The 
first variable in each EQUIVALENCE set is 
assigned to its appropriate boundary, and a 
record is kept of the size of the variable. 
Then, as each variable in the set is 
processed, if any variable of a greater 
size requires alignment, the entire set is 
moved accordingly. If any variable is 
encountered of the size which caused the 
last alignment, or of lower size, and that 
variable is not on the appropriate boun- 
dary, this error has occurred. 


If EQUIVALENCE errors of either of these 
types occur, the message 


IEYO23I EQUIVALENCE ALLOCATION ERRORS 


is printed. The message is followed by a 
list of the variables which could not be 
allocated according to source module speci- 
fications. The condition code is 4. 


Another class of EQUIVALENCE error is 
the specification, in an EQUIVALENCE set, 
of an array element which is outside the 
array. These errors are summarized under 
the heading | 


IEYO24I EQUIVALENCE DEFINITION ERRORS 


on the source module listing. The condi- 


tion code is 4. 


DUMMY DIMENSION ERRORS: If variables spe- 
cified as dummy array dimensions are not in 
COMMON and are not global dummy variables, 
they constitute errors. These are summa- 
rized under the heading 


IEYO25I DUMMY DIMENSION ERRORS 


on the source module listing. The condi- 


tion code is 4. 
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BLOCK DATA ERRORS: If variables specified 
within the BLOCK DATA subprogram have not 
also been defined as COMMON, they consti- 
tute errors. The message 





IEYO26I BLOCK DATA PROGRAM ERRORS 
is produced on the source module listing 
followed by a summarization of the 


variables in error. The condition code for 
this type of error is 4. 


Allocate produces the storage maps de- 
scribed below during its operations; these 
maps are printed only if the MAP option is 
specified by the programmer. 


COMMON___ MAP: The map of each COMMON block 
is produced by Allocate. The map is headed 
by two title lines; the first of these is 


COMMON / name / MAP SIZE n 
and the second is the pair of words 
SYMBOL LOCATION 


printed five times across the line. The 
title lines are followed by a list of the 
variables assigned to the COMMON block and 
their relative addresses, five variables 
per line, in order of ascending relative 
addresses. The name contained within the 
Slashes is the name of the COMMON block. 
The amount of core occupied by the block 
(n) is given in hexadecimal and represents 
the number of bytes occupied. 


SCALAR MAP: The scalar map is produced by 
Allocate and consists of two title lines, 
the first of which reads 


SCALAR MAP 


and the second of which is identical to the 
second title line of the COMMON maps. The 
title is followed by a list of the non- 
COMMON scalar variables, five variables per 
line, and their relative addresses, in 
order of ascending relative addresses. 


ARRAY MAP: The first title line of the 
array map reads 

ARRAY MAP 

In all other respects, the array map is 


identical to the scalar map. 


EQUIVALENCE MAP: The first title line of 


the map of EQUIVALENCE sets reads 
EQUIVALENCE DATA MAP 


The second line for both maps is standard. 
The variables listed in the EQUIVALENCE map 
are those not defined as COMMON. 


NAMELIST MAP: This map shows the locations 
of the NAMELIST tables. The first title 
line reads 


NAMELIST MAP 


and the second line is’ standard. The 
symbol listed is the NAMELIST name asso- 
Ciated with each of the tables. 

FORMAT MAP: This map gives the labels and 
locations of FORMAT statements. The first 
title line is 


FORMAT STATEMENT MAP 


and the second title is the same as the 
others described. The symbol listed is the 
label of the FORMAT statement. 


Subprogram List 


Allocate prints a list of the  subpro- 
grams called by the source module being 
compiled. This list is printed only if the 
MAP option is specified by the programmer. 
The subprogram list is headed by the line 


SUBPROGRAMS CALLED 


and contains the names of the SUBROUTINES 


and FUNCTIONS referred to in the source 
module. 
Cards Produced by Allocate 

Allocate produces both ESD and TxXT 


cards, provided that a DECK option or a 
LOAD option has been specified by the 
programmer. All ESD cards required by the 
object module are produced during this 
phase. These include cards for the CSECT 
in which the object module is contained for 
each COMMON block and for each subprogram 
referred to by the object module. 


The ESD cards that are produced by 
Allocate are given in the following order 
according to type: 


ESD, type 0 - contains the name of the 
program and indicates the begin- 
ning of the object module. 


ESD, type 1 - contains the entry point to a 
SUBROUTINE or FUNCTION subpro- 
gram, or the name specified in 
the NAME option, or the name 
MAIN. The name designated on the 
card indicates where control is 
given to begin execution of the 
module. 


ESD, type 2 - contains the names of subpro- 
grams referred to in the source 
module by CALL statements, 
EXTERNAL statements, explicit 
function references, and implicit 
function references. 


ESD, type 5 - contains information about 


each COMMON block. 


The TXT cards produced during this phase 
fill the following areas of the object 
module: 


e The NAMELIST tables 


e The literal constants 


e The FORMAT statements 


The other TXT cards required for the 
object module are produced by later phases 
of the compiler. 


PHASE _3_OF THE COMPILER: UNIFY (TEYUNF) 


The third phase of the compiler opti- 
mizes the subscripting operations performed 
by the object module by deciding, on the 
basis of frequency of use, which subscript 
expressions within DO loops are to appear 
in general registers, and which are to _ be 
maintained in storage. 


The following paragraphs, “Flow of Phase 
3," describe the operation of Unify by 
means of narrative and flowcharts. 


The rolls manipulated by Unify are 
listed in Table 5 and are mentioned in the 
following discussion of the phase; these 
rolls are briefly described in context. 
See Appendix B for a complete description 
of any roll used in the phase. 
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Table 5. Rolls Used by Unify 
SG mR a a ee ne em ed 
{| Roll Number | Roll Name ] 
| 2 | Nonstd Script | 
[ 3 | Nest Script | 
| 4 | Loop Script ] 
| 13 | Std Script | 
| 14 | Temp j 
| 20 | Reg 
| 21 { Base Table | 
| 22 | Array | 
| 52 | Loop Control | 
| 54 | Script | 
| 55 | Loop Data ] 
| 56 | Program Script | 
| 57 | Array Ref | 
| 58 | Adr Const | 
Beene ea RIOR ners Re Reet een ate ee J 


FLOW OF PHASE 3, CHART 07 


START UNIFY (G0111) controls the opera- 
tion of this phase of the compiler. It 
initializes for the phase by setting the 
proper number of groups on the ARRAY REF 
roll to zero (this function is performed by 
the routine ARRAY REF ROLL ALLOTMENT) and 
moving the information transmitted on the 
PROGRAM SCRIPT roll to the SCRIPT roll. 
When the initialization is complete, the 
reserve blocks on the SCRIPT roll are in 
order from the outermost loop of the last 
source module DO nest (at the top of the 
roll) to the innermost loop of the first 
source module DO nest (at the bottom of the 
roll). 


After initialization, START UNIFY begins 
the optimizing process by inspecting the 
last group of a reserve block on the SCRIPT 
roll; a value of zero in this group indi- 
cates the end of ‘the SCRIPT roll informa- 
tion. When the value is nonzero, DO NEST 
UNIFY is called to process the information 
for an entire nest of DO loops. On return 
from this routine, the nest has been pro- 
cessed; the count of temporary storage 
locations required is updated, and START 
UNIFY repeats its operations for the next 
nest of loops. 


When all loops have been processed, 
START UNIFY makes a complete pass on the 
ARRAY REF roll, setting up the instruction 
format for the array references from point- 
ers which have been left on the roll 
(CONVERT TO INST FORMAT actually sets up 
the instruction fields). When all groups 
On the ARRAY REF roll have been processed, 
a jump is made to CONVERT TO ADR CONST. 
This routine sets up groups as required on 
the ADR CONST roll from data on the LOOP 

When the LOOP CONTROL roll 





CONTROL roll. 
has been processed, this routine terminates 
the Unify phase by calling Gen. 
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ARRAY REF ROLL ALLOTMENT, Chart DA 


This routine (G0145) constructs the 
ARRAY REF roll. The groups on this roll 
are initialized with values of ZELOe 
Pointers to the .roll have been placed on 
the SCRIPT roll and in the Polish notation 
by Parse, but information has not actually 
been put on the roll before this routine is 
called. The number of groups required has 
been transmitted from Parse. 


CONVERT TO ADR CONST, Chart DB 


This routine (G0113) constructs the ADR 
CONST roll from the base address informa- 
tion on the LOOP CONTROL roll. 


When the third word of the LOOP CONTROL 
roll group contains an area code and dis- 
placement, Unify requires a base address 
which it does not find in the base table. 
Since no values can be added to the base 
table by Unify, the required value must _ be 
placed in the temporary storage and con- 
stant area of the object module. The ADR 
CONST roll holds the information required 
for Exit to place the value ina temporary 
storage and constant location and to pro- 
duce the RLD card required to get the 
proper modification of the value in that 
location at load time. This routine builds 
that information on the ADR CONST roll by 
allocating the temporary storage and con- 
stant locations for the area codes’ and 
displacement values it finds on the LOOP 
CONTROL roll. See Appendix B for further 
explanation of the rolls involved. 


CONVERT TO INST FORMAT, Chart DC 


This routine (G0112) sets up the first 
word (zero rung) of each ARRAY REF roll 
group by testing the contents of the later 
words (the register rungs) of the same 
roll. The result is the skeleton of the 
instruction to be used for an array 
reference. When the second and third words 
of the group point to a general register, 
they are shifted into the appropriate posi- 
tion and inserted into the zero rung. (See 
Appendix B for the configuration of the 
ARRAY REF roll group.) At each entry to 
this routine, one word is processed and 
that word is cleared to zero before the 
routine exits. 


DO NEST UNIFY, Chart DD 


This routine (G0115) first initializes 
for the processing of one nest of DO loops. 
For each DO loop, a reserve block exists on 
the SCRIPT roll and one group exists on the 
LOOP DATA roll. These blocks and groups 
are ordered so that, reading from the 
bottom of the rolls up, a nest level of one 
indicates the end of a nest of loops; that 
is, for each nest, the bottom block repre- 
sents the inner loop and the top block 
represents the outer loop. 


DO NEST UNIFY serves a control function 
in this phase, arranging information to be 
processed by DO LOOP UNIFY and LEVEL ONE 
UNIFY; it is these latter routines which 
actually perform the optimization of sub- 
Scripting by means of register assignment. 
The main result of the optimization is that 
in the initialization code for each loop, 
only that portion of each subscript which 
depends on the DO loop variable is 
computed. 


DO LOOP UNIFY expects to find a reserved 
block on the bottom of the NEST SCRIPT roll 
describing a loop one nest level deeper 
than the loop described by the bottom 
reserved block on the SCRIPT roll. More- 
over, both the block on the SCRIPT roll and 
the block on the NEST SCRIPT roll must 
already reflect the allocation of arrays by 
Allocate; that is, both blocks must have 
been processed by NOTE ARRAY ALLOCATION 
DATA, another routine called by DO NEST 
UNIFY. This arrangement is required so 
that DO LOOP UNIFY can pass information 
from the loop being processed (on the NEST 
SCRIPT roll) to the next outer loop (on the 
SCRIPT roll). 


A special case is made of the reserved 
block describing a loop of nest level one, 
Since there is no outer loop’ to which 
information can be passed. The routine 
LEVEL ONE UNIFY processes in place of DO 
LOOP UNIFY in this case; it expects to find 
the reserved block describing the level one 
loop on the NEST SCRIPT roll. 


IEYROL. MODULE 


The IEYROL module is loaded into main 
storage by program fetch, along with the 
Invocation phase and the five processing 
phases. It contains two static rolls (the 
WORK roll and the EXIT roll), roll statis- 
tics, group stats, and the ROLL ADR table. 
Throughout the operation of the compiler, 
it maintains a record of the storage space 
allocated by the control program to_ the 
dynamic rolls. 


notation 


Phase 4 of the Compiler: Gen (ITEYGEN) 


Gen produces object code from the Polish 
and roll information left by pre- 
vious phases of the compiler. The code 
produced by this phase appears, one state- 
ment at a time, on the CODE roll, and is 
saved there until it is written out by 
EXIT. 


The following paragraphs, "Flow of Phase 
4," describe the operation of this phase by 
means of narrative and flowcharts. 


The rolls manipulated by Gen are listed 
in Table 6 and are mentioned in the follow- 
ing description of the phase; these rolls 
are briefly described in context. See 
Appendix B for a complete description of 
all of the rolls used in the phase. 





Table 6. Rolls Used by Gen 

a re - 
}Roll |Roll | 
|No. Roll Name |No. Roll _Name | 
}] 1 Source |} 24 Entry Names | 
| 4 Polish | 25 Global Dmy | 
{| 8 Fx Const | 34 Branch Table | 
1 9 Fl Const ] 36 Fx Ac | 
{ 10 Dp Const } 40 Temp. Pntr | 
} 11 Complex const j| 42 Fl Ac | 
} 12 Dp Complex } 43 Lbl | 
| Const 1} 44 Scalar | 
} 14 Temp | 45 Data Var | 
} 15 Do Loops Open ] 52 Loop Control | 
|} 15 Loops Open } 55 Loop Data | 
| 16 Temp and Const j] 56 Array Plex | 
} 17 Adcon | 57 Array Ref { 
| 18 Data Save } 59 At | 
] 22 Array | 62 Code | 
} 23 Dmy Dimension | 63 After Polish | 
] 23 Sprog Arg i | 
A ee Be hard eee aie 4 


FLOW OF PHASE 4, CHART 08 


START GEN (G0491) initializes for the 
operation of the Gen phase. It then calls 
ENTRY CODE GEN to produce the object head- 
ing code and PROLOGUE GEN and EPILOGUE GEN 
for the required prologues and epilogues. 
On return from EPILOGUE GEN, START GEN 
falls through to GEN PROCESS. 


GEN PROCESS (G0492) controls the repeti- 
tive operations of Gen. It first calls GET 
POLISH, which moves the Polish notation for 
one statement from the AFTER POLISH roll to 
the POLISH roll. Using the Polish notation 
just moved, GEN PROCESS determines whether 
the statement to be processed was labeled; 
if it was, the routine LBL PROCESS is 
called. If the source statement was not 
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labeled, or when LBL PROCESS returns, GEN 
PROCESS calls STA GEN and STA GEN FINISH. 


On return from STA GEN FINISH, GEN PROCESS 
restarts. 


The termination of the Gen phase of the 
compiler occurs when an END statement has 
been processed. END STA GEN jumps directly 
to TERMINATE PHASE after the object code is 
produced, rather than returning to GEN 
PROCESS. TERMINATE PHASE is described in 
Chart EG and in the accompanying text. 


ENTRY CODE GEN, Chart EA 


ENTRY CODE GEN (G0499) first determines 
whether the source module is a subprogram. 
If it is not, the heading code for a main 
program is placed on the CODE roll, the 
location counter is adjusted, and the rou- 
tine returns. 


if the source module is a_esubprogram, 
ENTRY CODE GEN determines the number of 
entries to the subprogram, generates code 


for the main entry and for each secondary 
entry and, when all required entry code has 
been produced, it then returns. 
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PROLOGUE GEN (G0504) processes the main 
entry and each additional ENTRY to the 
source subprogram, producing the required 
_prologues. Prologue code transfers argu- 
ments as required and is, therefore, not 
produced if no arguments are listed for the 
ENTRY. The prologue code terminates with a 
branch to the code for the appropriate 
entry point to the subprogram; in prepara- 
tion for the 
that entry point, this routine records the 
location of the branch instruction on the 
ENTRY NAMES roll. If the source module is 

not a subprogram, PROLOGUE GEN exits. 
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EPILOGUE GEN (G0508) processes the main 
entry and each additional ENTRY to ae sub- 
program, producing the required epilogues. 
Epilogue code returns argument values. and 
returns to the calling program If this 
routine determines that the source module 
is not a subprogram, main program prologue 
and epilogue code are produced. 
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moves the Polish 
Single statement from the 


This routine (G0712) 
notation for a 
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insertion of the address of. 


AFTER POLISH roli to the POLISH roll. The 
Polish notation is moved from the beginning 
of the AFTER POLISH roll, and a pointer is 
maintained to indicate the position on the 
roll at which the next statement begins. 
other rolls, data from 
the AFTER POLISH roll is obtained on a 
first-in first-out basis (i.e., the BASE 
rather than the BOTTOM pointer is’ used). 
This is done to maintain the sequence of 
the source program. 


Note: Unlike the 





LBL_PROCESS, Chart EF 


LBL PROCESS (G0493) stores the label 
pointer left on the WORK roll by GEN 
PROCESS in STA LBL BOX. It then inspects 


the LBL roll group defining the label, and 
determines whether the label 1S a jump 
target. If so, the base register table is 
cleared to indicate that base values must 
be reloaded. 


If the label is not the target of a 
jump, or when the base register table has 
been cleared, the AT roll is inspected. 
For each AT roll entry (and, therefore, AT 
statement) referring to the labeled state- 
ment being processed, made labels are’ con- 
structed for the debug code and for the 
next instruction in line, pointers to these 
labels are recorded on the AT roll, and an 
unconditional branch to the debug code is 
placed on the CODE roll. 


When all AT references to the 
label have been processed, an instruction 
is placed on the CODE roll to inform Exit 
that a label was present and that a branch 
table entry may be required. Then, if the 
trace flag is on (indicating the presence 
of the TRACE option in the source DEBUG 
statement), the debug linkage for TRACE and 
the binary label are placed on the CODE 


present 


roll. If the trace flag is off, or when 
the code has been completed, LBL PROCESS 
returns. 


STA GEN (G0515) uses the control driver 
left on the WORK roll by GEN PROCESS to 
index into a jump table (STA RUN TABLE), 
jumping to the appropriate routine for 
constructing the object code for the spe- 


cific type of statement being processed. 
This operation is called a "run" on the 
driver; other “runs"™ occur in Gen for 
building specific instructions or for 


generating data references. 


The names of the code generating rou- 
tines indicate the functions they perform; 


for example, assignment statements are pro- 
cessed by ASSIGNMENT STA GEN, while GO TO 
Statements are processed by GO TO STA _ GEN. 
These routines construct the code for the 
Statement on the CODE roll and, when the 
code is complete, return to GEN PROCESS. 


END STA GEN processes the END statement 
and provides the normal termination of the 
Gen phase by jumping to TERMINATE PHASE 
after producing the code. The code pro- 
duced for the END statement is identical to 
that for the STOP statement if a main 
program is being compiled or a ée RETURN 


Statement if a subprogram is being com- 
piled. If an AT statement precedes the 
END, an unconditional branch instruction is 


constructed to return from the debug code 
to the main line of code. 


TERMINATE PHASE (G0544) prepares for and 
calls the Exit phase of the compiler. 


STA GEN FINISH, Chart EH 


STA GEN FINISH (G0496) determines wheth- 
er the present statement is the closing 
Statement of any DO loops; if it is, this 
routine generates the code required for the 
DO loop closing and repeats the check for 
additional loops to be closed. 


When all DO closings have been pro- 
cessed, STA GEN FINISH resets pointers to 
temporary locations, clears accumulators, 
and returns to GEN PROCESS. 


PHASE 5 OF THE COMPILER: EXIT (IEYEXT) 


Exit produces the SYSPUNCH and/or SYSLIN 
output regquested by the programmer, except 
for the ESD cards and TXT card produced by 
the Allocate phase. It also produces’ the 
listing of the object module on SYSPRINT, 
if it has been requested by the programmer. 


The description of this phase of the 
compiler is divided into two parts. The 
first of these, "Flow of Phase 5," de- 
scribes the overall logic of the phase by 
means of narrative and flowcharts. 


The second part of the description of 
the phase, “Output from Phase 5," describes 
the output written by the phase. 


The rolls used by Exit are listed in 
Table 7, and are briefly described in 
context. For further description of rolls, 
see Appendix B. 


fo ee ee es eee ee ee 1 
| Roll Number | Roll Name | 
| 7 | Global Sprog | 
| 16 i Temp and Const | 
| 17 | ADCON | 
| 20 | CSECT | 
| 23 ] Sprog Arg | 
| 38 | Used Lib Function | 
| 45 | BCD { 
| 46 | Base Table | 
| 51 | RLD | 

52 | Branch Table | 
58 | Adr Const | 
| 62 | Code | 
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FLOW OF PHASE 5, CHART 09 


EXIT PASS (G0381) controls 
the operation of this phase. After initia- 
lizing, this routine calls PUNCH NAMELIST 
MPY DATA and PUNCH TEMP AND CONST ROLL. 
The routine PUNCH ADR CONST ROLL is’ then 
called and, if an object module listing was 
requested, the heading for that listing is 
written out. 


The routine 


After this operation, EXIT PASS calls 
PUNCH CODE ROLL, records the memory 
requirements for the code, and prints’ the 
corresponding message. PUNCH BASE ROLL, 


PUNCH BRANCH ROLL, PUNCH SPROG ARG ROLL, 
PUNCH GLOBAL SPROG ROLL, PUNCH USED LIBRARY 
ROLL, PUNCH ADCON ROLL, ORDER AND PUNCH RLD 
ROLL, and PUNCH END CARD are then called in 
order. On return from the last of these, 
EXIT PASS releases rolls and exits to the 
Invocation phase of the compiler. 


PUNCH TEMP AND CONST ROLL, Chart FA 


This routine (G0382) initializes the 
location counter for the temporary storage 
and constant area of the object module. It 
then initializes a pointer to the TEMP AND 
CONST roll and begins the processing of 
that roll from top to bottom. Each group 
on the roll is moved to the output area; 
when the output area is full, a TXT card is 
written. When the entire TEMP AND CONST 
roll has been processed, a jump is made to 
PUNCH PARTIAL TXT CARD, which writes out 
any partial TXT card remaining in the 
output area and returns to EXIT PASS. 
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PUNCH ADR CONST ROLL, Chart FB 


The information on the ADR CONST roll is 
used by this routine (G0383) to produce TXT 
cards for temporary storage and constant 
area locations which contain addresses. 
RLD roll entries are also produced to cause 
correct modification of those locations by 
the linkage editor. The beginning address 
of the temporary storage and constant area 
is computed. Then, for each ADR CONST roll 
entry, the TEMP AND CONST roll pointer is 
added to that value to produce the address 
at which an address constant will be 


stored. This address is placed in the TXT 
card and on the RLD roll, the address 
constant from the ADR CONST roll initial- 
izes that location, and the area code from 
the ADR CONST roll is placed on the RLD 
roll. (See Appendix B for roll descrip- 


tions. ) 


PUNCH CODE ROLL, Chart FC 


PUNCH CODE ROLL (G0384) initializes a 
location counter and a pointer to the CODE 
roll. Inspecting one group at a time, it 
determines the nature of the word. If it 
is a statement number, PUNCH CODE ROLL 
Simply stores it and repeats the operation 
with the next word. 

If a group is a constant, it is placed 
in the output area for SYSPUNCH and/or 
SYSLIN. This category includes literals 
which appear in-line and, thus, the con- 
stant to be written may occupy several 
groups on the roll. 


Groups representing code are placed in 


the output area and, if an object module 
listing has been requested, the line 
entered into the output area is listed 


before it is punched. The contents of the 
DATA VAR roll are used for the listing of 
the operands. 


If the group on the CODE roll is an 
indication of the definition of an address 
constant, the location counter is stored 
accordingly, and the operation of the rou- 
tine continues with the next group. 


PUNCH CODE ROLL also determines whether 
the group is an indication of the defini- 
tion of a label, if it is, the routine 
defines the label on the BRANCH TABLE roll 
aS required, inserts the label in the 
output line for the object module listing 
and repeats with the next group on the 


roll. 
When all groups on the roll have been 
processed, a transfer to PUNCH PARTIAL TXT 


CARD is made; that routine writes out any 
incomplete TXT card which may be in the 
output area, and returns to EXIT PASS. 


PUNCH BASE ROLL, Chart FD 


PUNCH BASE ROLL (G0399) initializes a 
pointer to the BASE TABLE roll and initial- 
izes the location counter to the beginning 
address of the object module base table. 
It then enters each group on the BASE TABLE 
roll into the TXT card output area; it also 
records the object module ESD number and 
the location counter on the RLD roll for 
later production of the RLD cards. 
Whenever the output area is full, a TXT 
card is written. When all ‘groups on the 
BASE TABLE roll have been processed, the 
routine makes a jump to PUNCH PARTIAL TXT 


CARD, which writes out any incomplete card 
in the output area and returns to EXIT 
PASS. 


This routine (G0O400) first initializes a 
pointer to the BRANCH TABLE roll, and the 
location counter to the beginning location 
of the object module branch table. When 
these operations are completed, the routine 
inspects the BRANCH TABLE roll from top to 
bottom, making the requisite entries on the 
RLD roll and entering the addresses from 
the roll in the TXT card output area. TXT 
cards are written when the output area is 
full. When all BRANCH TABLE roll groups 
have been processed, the routine jumps to 
PUNCH PARTIAL TXT CARD, which writes out 
any incomplete card in the output area and 
returns to EXIT PASS. 


PUNCH SPROG ARG ROLL, Chart FF 


PUNCH SPROG ARG ROLL (G0402) initializes 
a pointer to the SPROG ARG roll and ini- 
tializes the location counter to the begin- 
ning address of the subprogram arguments 
area of the object module. 


The routine then inspects the groups.) on 
the SPROG ARG roll. If the first word of 
the group contains the value zero (indicat- 
ing an argument whose address will be 
stored dynamically), the group is placed in 
the TXT card output area, and the card is 
written if the area is full. The routine 
then repeats with the next group on the 
roll. 


If the SPROG ARG roll group does not 
contain zero, the group is then inspected 
to determine whether it refers to ae tem- 
porary location. If it does, the correct 
location (address of the temporary storage 
and constant area plus the relative address 
within that area for this location) is 
determined. The required RLD roll entries 
are then made, the address is moved to the 
output area, and PUNCH SPROG ARG ROLL 
repeats this process with the next group on 
the roll. 


If the group from the SPROG ARG roll 
contained neither a zero nor aeéetemporary 
location, the argument referenced must have 
been a scalar, an array, a label ora 
subprogram. In any of these cases, a _ base 
table pointer and a displacement are on the 
pointed roll. From these, this routine 
computes the location of the variable or 
label or the subprogram address, enters it 


in the TXT card output area, and records 
the RLD information required on the RLD 
roll. The routine then repeats with the 


next group on the SPROG ARG roll. 


This 
PUNCH PARTIAL TXT CARD when all 
roll groups have been processed. 


routine exits to EXIT PASS through 
SPROG ARG 


PUNCH GLOBAL SPROG ROLL, Chart FG 


This routine (GO0O403) first inverts the 
GLOBAL SPROG roll and moves one word from 
that roll to the WORK roll. If these 
actions indicate that there is no informa- 
tion on the roll, the routine exits. 


Otherwise, for each group on the GLOBAL 
SPROG roll, this routine enters the ESD 
number for the subprogram and the location 
at which its address is to be stored on the 
RLD roll. The routine also writes a word 
containing the value zero for each subpro- 
gram listed (these words become the object 
module subprogram addresses region). When 
all groups on the GLOBAL SPROG roll have 
been processed, the routine exits through 
PUNCH PARTIAL TXT CARD, which writes out 
any incomplete card remaining in the output 
area before returning to EXIT PASS. 


PUNCH_USED LIBRARY ROLL, Chart FH 


This routine (G0404) performs the same 
function for the USED LIB FUNCTION roll 


that the previous routine performs for the 


GLOBAL SPROG roll, thus completing the 
subprogram addresses region of the object 
module. The techniques used for the two 


rolls are identical. 


PUNCH ADCON ROLL, Chart FI 


This routine (G0405) returns immediately 
to EXIT PASS if there is no information on 
the ADCON_ roll. Otherwise, it writes out 
one TXT card for each group it finds on the 
roll, obtaining the area code, the address 
constant, and the address of the constant 
from the ADCON roll. The ESD number and 
the address of the constant are placed on 
the RUD roll for subsequent processing. A 
TXT card is punched containing the con- 
stant. The operation of PUNCH ADCON ROLL 
terminates when all groups on the roll have 
been processed. 


ORDER AND PUNCH RLD ROLL, Chart FJ 


This routine (G0416) sorts the RLD roll 
and processes the groups on that roll, 
producing the object module RLD cards. The 
card images are set up, and the RLD cards 
are actually written out as they are com- 
pleted. When all information on the _ roll 
has been processed, this routine returns to 
EXIT PASS. 


PUNCH END CARD, Chart FK 


PUNCH END CARD (G0424) produces’ the 
object module END card. It moves the 
required information into the card image 


and initiates the write operation; it then 
returns to EXIT PASS. 


PUNCH NAMELIST MPY DATA, Chart FL 


This routine (G0564) is responsible for 
the punching of TXT and RLD cards for those 
words in the object module NAMELIST tables 
which contain pointers to array dimension 
multipliers. The multipliers themselves 
are placed on the TEMP AND CONST roll. The 
required information is found on the 
NAMELIST MPY DATA roll; when all groups 
have been processed, this routine returns 
to EXIT PASS. 


OUTPUT FROM PHASE 5 


Three types of Output are produced by 
the Exit phase of the compiler: TXT cards, 
RLD cards, and the object module listing. 
The cards are produced on SYSPUNCH and or 


SYSLIN, according to the user's options. 
The listing, if requested, is produced on 
SYSPRINT. 
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The formats of the TXT and RLD cards are 
described in the publication IBM System/360 


Operating System: Linkage Editor Program 


Logic Manual. The object module listing 


consists of the following fields: 


e Location, which is the hexadecimal 
address, relative to the beginning of 
the object module control section, of 
the displayed instruction. 


e Statement number (entitled STA NUM), 
which is the consecutive statement 
number assigned to the source module 
statement for which the displayed 
instruction is part of the code _ pro- 
duced. This value is given in decimal. 
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Label, which is the statement label, if 
any, applied to the statement for which 
the code was produced. The statement 
label is given in decimal. 


Operation code (entitled OP), which is 
the symbolic operation code generated. 


Operand, which is given in assembly 
format but does not contain any vari- 
able names. 


Operand (entitled BCD OPERAND), which 
contains the symbolic name of the vari- 
able referred to in the source module 
statement which resulted in the code. 
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ERE KEEKEEEES 


-* *. NO 
*. LOAD OPTION jet eo= 


. . 


*. 7 


*. 
* YES 


AT 3 a ok ok ok 


* SYSTEM * 
OPEN FOR 
* SYSLIN * 


KEKE 


ee KE 
* * 
* E3 *-> 
* * 


#E KE 
IEYFO5 .*. 
wr *. 


. 


* mak 


° « NO 
*- DECK OPTIONS - a= 


*, Ps 


x, Ok 
* YES 


KK REE 3 EE EEE 


* SYSTEM * 
OPEN FOR 
*  SYSPUNCH * 
WK OK KKK KK 
2k 
* ** KK 
A3 * * * 
* * G3 > 
KK * * 
KKK 
IEYF10 
HEEKKEG IR KEK EE EERE 
* * 
* INITIALIZE * 
*LINES/PAGE FOR * 
*PRINTING FORMATS 
oe KR kk ok ok kk 
KKK 3 ERE ERE EES 
* * 
* IEYPAR * 
| KK KEK AEE KKK KE K 
ED 
* 
A3 * 
* 
ak 


eee 


**** 


IEYPRNT 


KEKEDY EERE EE HK 
* * 
* IEYPRNT * 
* * 


ae eR ok kk ok ok 


EKER KKK RK KEKE 
* * 
* * 
*INITIALIZE SAVE* 
* REGISTERS = * 
eK KOR KEKE 


ERC YO EE ER EK 


Fy 
SAVE * 
LINE COUNT * 
ORIGIN 4 

* 


HRS 


HREKEE EKER KEKE KKH 


* 


*. L* 
* NO 
4K 
* * 
* EW *-—> 
* * 
** 4% 


IEYF25 
oR aOR OL Re 
* * 


* ADVANCE * 
Pia COUNT ONE : 


* * 
OK CR EE KOR OR RIOR 


2. BEGIN NEW )4#-------- >* 
*. PAGE 


CK 

* * 

* DS * 

* * 

KK 

IEYF22 | 

ROKR AT) 5 40k Bk ok kk 
*PRNTHEAD 01A2* 
ak kK RK KK 


PRINT * 
: PAGE HEADING : 
FOR RR RIOR tt 


CK 


ee % 
is] 
+ 
ee 


* 
* 
* 
-*. 
F4 *. 
; ‘ rrr 
-* MAX *. YES * * 
*. LINES USED .*----—>* D5 * 
*, .* + + 
*. a ke * 
+. oF 
| NO 
sat 
Gul EGS toe 
.* +, * * 
NO .* CARRIAGE *. YES * ADVANCE * 
te CONTROL=0 Pd -------- oS LINE COUNT ONE . 
a * * * 
*. LY wT Tree creer er ere 
* 
-*. 
H4 *. 
.* : Ok 
* MAX *. YE * * 
*, LINES USED .*-~—-->* D5 * 
+, * * * 
*, .* +k 
*. * 
* NO 
S tententenientantestenteten > 
IEYF30 
HERESY ER KE KEKE 
* + 
* STORE LINE * 
* COUNT INTO * 
i SYSPRT FORMAT : 
Trt t iT trite trerr 
Ha AK UF RE 
* SET + HR KAKD $4 kK EEE 
*PARAMETERS AND * * RETURN * 
*PRINT ADDRESSES*—~-~----—->* TO COMPILER * 
* INTO SYSPRT #* * * 
* * Tritt ori r crc rs. 


ae ok ok oe to ek EK 
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Chart 01. IEYFORT 


EREXITPR 


HEKEAL RARK ERE KE 
* * 
* EREXITPR * 
aR CR ak EK dG 


Vv 
KE B 1 FRR ERE EE 
* SET * 
* ERROR CODE * 
*RESULTING FROM * 
: PRINT ERROR : 


oR aK OK ok RR RR KK 


RO 
*03 + 
->* A3 * 
* * 
eee 
IEYMOR 
RKC] eR RK RK KE 
* * 
: IEYMOR * 
Peet errr rere £ ee 


KEKE KD ] RR KK KKK KKK 
* * 


* ISSUE GETMAIN * 
*FOR 4K BYTES OF*<-- 
“4 STORAGE : 


2K oe oo to oe KE kk ok 


.*. 
EL *, 
.* *, 
YES .+* *. 
---*. SUCCESSFUL |.+* 
ae, * 
*.O* 
* NO 


oe A Eo KK KK 
* * 


* DELETE * 
PANSCT IVE MODULE 
* * 


RK RK KK KKK EEK KE 


* 


* *. 
.* WERE *. YES 
*. ANY PELE 


me KO KK OK OE 
* 


* 
* RETURN WITH * 
* POSITIVE * 


CONDITION CODE 4 
RR ER RE EAE 


AAKKET LER KK EKA EX 


* RETURN * 
* WITH * 


* NON-POSITIVE * 
poo OA EEON CODE : 


ROR RR RK RR KK 


60 
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PRNTHEAD 


HKRKADDEREEKKKEE 
* * 
* PRNTHEAD * 
Pee ee re rere re SS 


ok RR BOD oR ERK RE OK 


* * 
* ADVANCE * 
* PRINT PAGE ¥* 
* COUNT * 
* * 
KK KK KK KK KKK KK KKK 


V 
KR ACD ER RO RK 
* 


* 
* CONVERT * 
* PAGE COUNT TO * 
; DECIMAL : 


KK KKK KKK KK KK KKK 


9 KKK ED) DKK KE KK KKK 
* * 
*SET PAGE COUNT * 
* INTO HEADING * 
* FORMAT * 


* * 
HARK KERR KEK KEKE KKK 


HAKKAR D RRR RHE 
* * 
* SET PROGRAM ¥* 
* NAME INTO * 
CeaPINs FORMAT : 


HK KKK KK KKK KK KK KKK 


AOR KARR DK AOR OK 
* * 
*SET PARAMETERS ¥* 
* AND ADDRESSES * 
: INTO SYSPRT : 


eect eT Teer rrer es 


KEKKAKCD KKK KKK KKK 
* “k 


* SET * 
* LINE COUNT TO * 
* TWO * 
* * 
KK AK ARK EK KK AK 


~* *., NO * 
- OPTIONAL 
*. HEADING |. * 


- 


* 


* 


. * 
* YES 


Vv 
HKKKK TD KKK KE KKK KE 
* OBTAIN * 
* OFFSET AND * 
* CONTROL BLOCK * 
: INFORMATION ; 


KKK KK KA KK EK KEK 


#k EK 


eee 
oo 
WwW 

eH 


PRHDO5 
* 


HHH 
to 
Ww 

exe 


KRKKEAKBQRAEKEREAE RE 


* * 
pPRINT HEADING | 


KKK KK KE KK EE 


aR RR C3 KR EK 
* * 


* ADVANCE * 
FLINE COUNT TWO . 


* * 
CT etre errr ere se 2 


* KK 
* * 
* D3 *—> 
* * 

* KKK 


KKKKD 3 RKKKKKKEEK 
* 


% 


* SET LINE * 
* COUNT AND * 
* ORIGIN * 
* * 
* * 


OK oR OK oo oo KOR KK KK EK 


KARE 3 4 ERK RE RAE 
* SET * 
* CARRIAGE * 
* CONTROL TO * 
’ SKIPPING LINE ; 


ARR Rok RoR ORK RR KK 


ok KES KK KK AE 
* * 
* RETURN * 
* * 
RRR RR RRR ER 


* KK 


* 


ee aE ee 
* * 


* KK 


IEYREAD 
HKAKAL ERK KEKE KK 
* * 
* ITEYREAD * 
aR oe OK Ek 


Vv 
ARR AB UK ORR 


* * 
* SET BASE * 
* AND SAVE * 
: REGISTERS . 
ae RE OK 


.* « NO 
*. FIRST CARD .* 


*. READ -* 
*, .* 


* * 


* YES 


READOUT2 
KHEAKKAD UK KKK RK KKK 
* 


* 
* OBTAIN CARD ¥* 
* ORIGIN AND * 
: RESET FLAG : 
RRR RR RK 
* KK 
EY 

ek KE 


eee 
Hee 


-> 


HARARE KK AK KKAEEE 
* * 


* RESTORE * 
*SAVE REGISTERS : 
* * 


errr Se fe ree. eet ey 


Peer See 2 ee ee ee 
* RETURN * 
: TO COMPILER : 


ee OK KK OR OK Ok OK Kk 


Pee 
* * 

* GY *-- 
* * 

2k OK 


KG UR 
* * 
* SAVE CARD * 
* ORIGIN OR EOF * 
: NOTATION : 


KK KOK KKK KOK KKK KK 


2 2K 


HH 
* BI 
Tr 

xe 


* 


* * 


NO .* : 
[""#-bataT sens: * 
Vv 
* 


tok OK 
* * 
* C5 * 
+ * 
aK kk 


ARR RRC 5 RK OK 
* * 
*SET PARAMETERS 


r FOR SYSIN 


RMAT 
HARK KK KEE KER KE EK KKK 


* 
>* AND ADDRESSES : 
* 


HORA DS RR RK oR ACK 


* SYSTEM GET # 
ROUTINE, 
* OBTAINS EOF * 


KR KK KK RK KK KE 


e e 


* 


‘Dera SETS .* 
ek 
* YES 


ok oe KK ES eo ok OK OK KK 
* SET SWITCH B * 
* FOR * 
* CONCATENATED * 
* DATA SETS=0_ * 
* * 

* 


ec ee eee Lee Le SS 


Chart 02. 


EREXITIN 
HRM A 1 EEE HEH 
* * 
* EREXITIN * 
* * 


HERKEN RRAEKE 


Vv 
HHH’ 1] HERE HEE 


* 
OBTAIN * 
SYSIN ERROR * 
COUNT * 

* 

* 


** kk * 


HRHRERHERERERRHERHREE 


o* He 
#.eERROR CODE O «* 
* 


e o* 
He o* 


Vv 
HEE KED 1] HHH HEHEHE 


* * 
* SETUP BAD * 
* CARD IMAGE ¥* 
* MESSAGE * 
* * 
* * 


REHHEKKHKERKAHHEE 


Pree ere Terre 
*PRNTMSG O3SA1L* 
HH — HR — HK — HH HE 
* PRINT * 
* ERROR * 


* MESSAGE * 
HEME KKH KNEE ER ER 








Vv 
RRR | MEK EH 


* * 
* SET * 
*# TERMINAL ERROR * 
* CODE * 
*% * 


MRE REREEREE 





REKHE 
*O1 * 
* CS* 

*% 


ITEYFORT 


YES 


(Part 3 of 


EREXINOS 
“HEH HH CD HH HHH HHH HEE 
* * 
* SET * 
>* TERMINAL ERROR * 
* CODE * 
* * 


HRHEEHBHEHEEKHHEH RHEE 








Vv 
HEEKEOD DER RKEH REE 
* * 
*SET UP BAD CARD* 
*AND ABORT COMP * 


* MESSAGES * 
* * 
HEE EERE HERE KEE 


| 
| 
| 


Vv 
HEHEHE D HEHEHE HEHE 
*PRNTMSG O3A1* 
H—H—X—H—H—H— HHH 
* PRINT * 


* MESSAGES * 
* * 
REE KHE HE KHER EREE 





Vv 
HHH HH 
*03 * 
* AB* 

% # 


4) 


IEYPCH 
HHEKKA ZEEE HHH 
* ¥ 
* IEYPCH * 
* % 


KERR REKRHEE 


Vv 
HHHKH BIH HH HHH HEHE 


* * 
* INITIALIZE ¥* 
* BASE AND SAVE * 
* REGISTERS ¥* 
* *e 
* * 


HEEMHEKEHHEKREEH 


HHH | 


Vv 
HKREEKHHAG HHHKHEKHKRHREE 
SYSTEM 
* PUT ROUTINE» * 
INSERT FILE 
* PARAMETERS * 


HHH RH HK HHH 
HH HN | 
* *% 
* B4 *—>] 
* * 
HH HH | 
IEYF70O 
HHH HH BG HH HHH 
* * 
* RESTORE * 
*SAVE REGISTERS * 
% * 
* * 


HH KEBEHRKHKHKKHHEH 





Vv 
o%e { 
C3 He Vv 
ot He HEHKCG HHH HEHEHE 
o* *. NO x * 
*. LOAD OPTION 2*-———4 * RETURN * 
Ke o* | * TO COMPILER * 
He o* | Se ee ee ee 
we a % Vv 
*% YES HHH 
* * 
| * G3 * 
* * 
| HH 
Vv 
o*e 
D3 He 
e* LOAD He 
o* FILE *e YES 
*e. TERMINATED o* 
He o* | 
ke oX | 
He a ¥ Vv 
* NO HEHE 
{ * * 
* G3 * 
| eee 
| RUNRE 
Vv 
HNAAKRE SHREK HHH EE 
% * 
*SET PARAMETERS * 
* AND ADDRESSES * 
* FOR SYSPCH * 
* * 
RURKKEKHEMRMHHRKHKHEK 
Vv 
ee oe ee 
SYSTEM 
* PUT ROUTINE * 
INSERTS 
* PARAMETER * 
ADDRESSES 
HRKNKKHREKREKREE 
HHH | 
* x 
* G3 *-> 
* * 
HEEE Vv 
IEYF60 o*e 
G3 Ke 
o* He 
o* *. NO 
*. DECK OPTION .*--——4 
Ke o* | 
Ke o* | 
%e o* Vv 
* YES RHE 
* * 
* B4 * 
* * 
HHRHH 
Vv 
o*e 
H3 he 
e* DECK He 
o* FILE *. YES 


*. TERMINATED o* 
He o* | 
He * 


He a % 
if NO 


Vv 
HEHHKH J ZRH HEHEHE 


* INSERT + 
* PROGRAM * 
* SEQUENCE * 
* NUMBERS * 
* * 
HEHREKKHHKKKKRKKRKHEE 


Vv 
HRHREKRKK ZRH EKRKHEK 


* * 
*SET PARAMETERS * 
* FOR SYSPCH * 
* * 
* * 
HKG EHEHHHEE EEK 





Vv 
HHH 


B4 


kk 
OOK 


HERE 


HEHEHE 
* * 
>* AG * 
* * 

HEHEHE 


Section 


EREXITPC 


HHEK ASHER HHEE 


* x 
* EREXITPC * 
* # 


HHH H HEHEHE HHHENE 


| 
| 


HHKKEB SMH HRHRKKHEEK 
* * 
* SET FLAG * 
* TO TURN OFF ¥* 
* SYSPCH x 
*% * 
HHEKKKHHKEHHHHEHMHKH 


i 


| 
| 


Vv 
KHHEKEKRCSKEHRHEKEKRKHEE 


* * 
* SET * 
* ERROR CODE * 
* VALUE * 
* * 
* * 


HEHE KKHKRHKKHEHE 





V 
HHHKH OS MH KKK HEHEHE 


% * 
* SET FLAG TO * 
* TURN OFF LOAD * 
* LINKAGE * 
* * 
HKHRMRHKRKKEKKHEKHHEKRHKH 


Vv 
HEHEHE ES RHE KRENEK HEE 


* * 
* SET ERROR * 
* CODE FOR LINK * 
2 
* 
% 


* EDIT OUTPUT 
* 


KHREKKEHHKHHHKHKEE 


HHH 
* Ba * 


* * 
HEHE 
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Chart 03. 


PRNTMESG 
HHH AL HEHE HEHE 
* * 
* PRNTMSG * 


HERKEN KEK HEHEHE 

| 

| 

| 

Vv 
HRHKEB 1] HER EE KKH 
% * 
* INITIALIZE * 
* PRINT BUFFER * 
* WITH BLANKS * 
* * 
* * 


HERR HKEKRHEKKRHAKEK HE 


<—— 


HEHHEKC 1] HHKKHEKRKEE 
* SET UP * 
* PRINT BUFFER * 
* ORIGIN AND * 
* 
* 
* 


* DISPLACEMENT 
* 


HHH KEMMMMRHHEN HEHE 





Vv 
HRHEKED 1 HHEKKKEKKEK 
* 


*% 
* GET MESSAGE ¥* 
* LENGTH AND * 
* ORIGIN * 
* * 
* * 


HHEMHE GHEE HEHE 


Vv 
HKEKHEHE | RHR HEHEE 
% 


* 
* PLACE * 
*1ST MSG SEGMENT* 
* IN PRINT * 
* BUFFER * 


KERMHKEKHEEKEE RENEE 


Vv 
HHEKHKE | HERE HEH 
* GET * 
* LENGTH AND * 
* ORIGIN OF 2ND * 
* MSG SEGMENT ¥* 
* * 
*% * 


HREKKHKRKEHEKRKEENE 


HHEKHHG LRH KHER HEE 
* * 
* PLACE 2ND * 
* SEGMENT IN * 
* 
* 
* 


* PRINT BUFFER 
* 


MEHR KKERKEEHEKRKEE 








Vv 
HM IH 1 HE EGE EE HE 


* * 
* SET * 
* CARRIAGE * 
* CONTROL * 
* * 
* * 


HEKKHEEKHHKHREEE 


Vv 
ee D 


* SYSTEM PUT * 
ROUTINE WRITE 
* MESSAGE * 


KKKKEKEKHKEEKRE 


, Vv 
HH | RK REE EHEE 


* * 
* RETURN * 
* * 


HRHKERHHKKEKKERNRE 
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of 


IEYRTN 


KEKHAPKHKEHKKHKE 


* * 
* TEYRETN * 
* % 


HKHHKEHKKKHKKREKEHKK 


| 

| 

{ 

Vv 
HHKKEGHOKRKRKKKHEKHKE 
* * 
* INITIALIZE * 
* BASE AND SAVE * 
* 
* 
* 


REGISTERS * 
* 


HHEKHKKHKKKRKHMRKHKHHE 


| 
| 
v 


HRHHACD HH KEHEKEHEE 
* OBTAIN * 
* COMPILER * 
*COMMUNICATIONS * 
* ORIGIN * 
* * 


ee ee ee 


| 


Vv 
HEH HEKOD RH KRK HEHEHE 





* * 
* GET CONDITION * 
* CODE RETURNED * 
* BY COMPILER * 
* * 
HK HHH HEHEHE KEE 


4) 


HHEX 


* OK 
> 
ow 

OK 


« 
* 


<——— 


IEYF INAL 
HHKKKAZHHKEREHEERE 
* RE-INITIALIZE * 
* BASE AND * 
*SAVE REGISTERS * 
* FOR COMPILER #* 
* TERMINATION * 
HKRKREKENHKHEHKHHEE 


I 
! 
Vv 
*% 


B3 %e 
o* Ke 
o* LOAD *. NO 
Be OPTION o* 
*.eSPECIFIED.* | 
Xe e* { 
He at Vv 
*% YES HEH 
# 
* G3 
# 


* 
Xe 
# 
* 


HHEKKEC FREER HHKRHEKKE 


% * 
* ISSUE * 
Ss CLOSE FOR # 
* SYSLIN * 
# % 
RHEE H MEHR MH HEK HHH 


Vv 
HHKKKD ZRH HKEREKHKE 
*FREEPOOL O3AS* 


H— KA K— HK KH HHH 
* FREE STORAGE * 
* USED BY * 
* SYSLIN * 
KH KH HERE EEE EE 





{ V 
Vv o*e 
HEHEHE DEK KEHKEHE HEE E3 Ke 
* * e* Ke 
¥*TEST LAST ERROR* o* *. NO 
* CODE vs * *eSYSLIN OUTPUT e* 
* PREVIOUS * ee o* 
* SETTING * Ke o* | 
HH KKH EE HEE KEE KEE Ke oe Vv 
| : * YES HHH 
* 
| | ae 
* 
| | HEHE 
Vv Vv 
HHHEKE DEKE HHE KHER HRKKEHE ZH RE HER HEHEHE 
* SET * 
* (FINAL ERROR #* * PRINT DATA * 
*CODE TO HIGHEST* SET STATUS 
*¥VALUE RETURNED * * MESSAGE ® 
* * 
HEE EKHER KEKE KEE HHRKKKKEKKHEH 
HHHK | 
* % 
* G3 *#-—> 
| * x | 
] HHH Vv 
Vv IEYFNLOS o*e 
HRHKKGDEKKKHEHHHKHE G3 ke 
* * o* He 
* INSERT "MAIN® * o%* DECK *%e NO 
* FOR PROGRAM *—— Be OPTION «*-——} 
* NAME OF NEXT * ¥eSPECIFIED.* | 
* PGM * | ee o* { 
HEHEHE EK EHEKEE Vv Ke 0% Vv 
KKRE * YES HEE 
HHEX * * * 
* * * EQ * * C4 
*# H2 *-—— * * l * 
*% * | HEE | HKHRE 
HHREX Vv | 
TEYR60 o%e Vv 
H2 He HHHKHKH ZH HHH EK HEH 
o* Ke * * 
e* ANOTHER *e. NO * ISSUE * 
*. COMPILATION 2«*——4 cal CLOSE FOR * 
te o* | * SYSPUNCH * 
Ke o* | * * 
ke eX Vv KEKE KKEK KHER KEEHE 
* YES HRKE | 
| 7 = | 
* AZ * | 
* * 
| HHH 
I { 
Vv Vv 
HEKHK ID ERRREKKEREN HHKKK J ZEKE KEKEKE 
* * *FREEPOOL O3A5* 
* RE-INITIALIZE * K—K—K— HK — HK —H— KKK * 
*LINEs CARD AND * * FREE STORAGE #* >* 
* PAGE COUNT * * USED BY * * 
* * * SYSPUNCH * 


HEKKHKEKKKKHRKKEKKEHEE 


Vv 
HRKEKERKD KHRKKKKHEKE 
* % 
* RESTORE * 
*SAVE REGISTERS * 
* * 
* * 


HRHHKHHKMHEKKKKKHEKKE 


KHKKHRKKKHKKEKEHRKKKE 


HHKKK GHEE 


* 
> * 


% 
IEYPAR * 
* * 


HKHHKKKKEKRKKHHREKKKE 


a | 

i 

Vv 

a*%e 

A4 ee 

Xe 

DECK Fe 
OUTPUT 

STOPPED 

Ke Pee 
He a & 

* YES 


o* 


Vv 
HRHKHHKEBLG HHKKHHHHHEK 


* PRINT DATA * 
SET STATUS 
* MESSAGE * 


HHH HEE HH 
* HH HH | 
x * 
* * C4 ¥—> 

* * 

HE HH | 
TEYFNL10 Vv 

HHH CHE HHH KE KEKE 


* 


* 
* ISSUE CLOSE * 
* FOR SYSIN AND * 
* SYSPRINT * 
* * 
HE HH HE EE IE HE EH 


<—— 


HHKHK OG REEKKKKEEE 
*FREEPOOL O3A5* 
a a a ee 
* FREE STORAGE 
* USED BY SYSIN #* 


* AND SYSPRINT ¥* 
HK KH HH EKER KHEK 


HHHE 
* * 
* EG *#—, 
* x | 
HEHE Vv 
ITEYRSO o % 
E4 
* 
e* RELEASE 
eo STORAGE 
*%e 
te 
ke 


e 
Ke 
Ke 
%e 


* 
o* 
o* 
* YES 
HHHK | 


% 
* * * 
% 


* F4 #—>| 
* * 
HHEEHX 

Vv 
HHHEHKHKE GHHHKKEHHHKHE 
* * 
*#O3TAIN ADORESS ¥* 
* OF BLOCK TO #* 
% RELEASE % 
* * 
HHEHKKHRHKKHKKKHKKHKKH 


<———— 


HHHEKHNG HKHHHKKHHKHH 
* * 
# ISSUE FREEMAIN * 
*FOR RELEASE OF * 
* STORAGE * 
* ¥ 
HWHKHRHHRRKRMKHHHRKKRKKE 


END OF 
STORAGE TO 
%e RELEASE 
Ke e* 

%e oo X 

* NO 
| 
| 


Vv 
HRN 


% * 
*% FG * 


Ke 
%e 
e* 


KRHHRHKE 
* 
AG * 


HHH 


HERE 


NO 


* 


NO 


we kK 


YE 


4} 


*—— 


| 

| 

Vv 
HERE 


H2 


KHKK 


S 


« *¥——_ 


FREEPOOL 


2 OK ke 


HHKK ASH HHH HRHHE 
* % 
* FREEPOOL * 
% * 


HRHEEKKHMKHHHKKHHEX 


Ce 


HKHKHEEKEK GS KHHHKRKHKHHHH 
*% * 
* LQAD DATA * 
* SET BUFFER * 
* ADDRESS x 
* % 
% * 


HEKEHKKKHHHEKKKKEHE 


V 
HRKKKE CSE KKHHHEKE 
* + 
# COMPUTE * 
*SIZE OF AREA TQ* 
* BE FREED * 
x % 


HREM HMHHKHHHKMHHHEHK 


Ce ee 


HEHEHE DOS HEHEHE KKEKE 
* * 
*ISSUE FREEMAIN * 
* FOR DATA SET ¥* 
* STCRAGE * 
* * 
KHHKKHHHHMHKHHEKHHKHK 


| 
| 
| 
Vv 


KHKREHK ES KEKE KKKHE 
* % 
* RETURN * 
* * 


HRHEKEHKKKKKKKKEEKEEK 


HHH 


* HS * 


HHEE 


Vv 
HRHKKHEHS EHH HHH HER 
* * 
* SET ERROR * 
*CODE FOR RETURN* 


* TO CALLER * 
* % 
HH KKK HHH HEH HHH HHH 


| 
| 
| 
! 


KRHEKE JS KREKRKKEHEE 
*% * 
* RETURN * 
* *% 


HKEHEKKHKKKKHERKE 


Chart AA. OPTSCAN 


PRS20 


HEH ADEE EEKE HEH 
* * 
* OPTSCAN * 

* 


HRHRKHEREKEREREE 


HME 
* * 
* AZ * 
* * 
HKRREKN 
| 
Vv 
HHH A ZH MER MEEH EH 
* * 
* SET INDICATOR * 
*IN POINTER FOR * 
* COMPILER * 
* * 
RHEKKRKHMKKKREMHREKE 


Vv PRS22 o*e 
KHHEHEBLD WERKE HEHE B3 He 
* * o* He 
* GET * o* Ke 
*PARAMETER LIST * *%e NAME= QUOTE e* 
* LENGTH * %e o* 
* * Me o* 
EERE EH MERE KHEE He oa% 
H * YES 
| HHHH | 
* * 
* C3 *-> 
| * * | 
Vv RHEE 
o*e PRS25 Vv 
C2 ¥e HHH FH HHH HHH HH 
* #e * * 
NO «* ANY Ke * SET PROGRAM * 
ee OPTIONS o* * NAME IN * 
i *.SPECIFIED.* *COMPILER COMMe * 
] Fe o* * AREA * 
Vv %e ot HH HH HHH HHH HH HHH 
HHH * YES 
* % HHREH | 
* €3 * | * * 
* * | * D3 *—>| 
HHH * * < 
Vv HHH | 
o*e PRSOUT Vv 
D2 #e H HHH ZH HHH HHH EH 
* ¥e % * 
YES o* #e * RESET * 
r———_ * «COMMA PRESENT. *# SCAN CONTROL * 
| He. 7% * FLAGS * 
He o* * * 
| Xe eo HHH HHH HH HH 
| * NO 
| | HHH | 
* * 
| * EZ *#-—> 
| | * eo 
| | HHH | 
| Vv OPTS10 Vv 
HHKHEHK ED HH HHH HH EK HE KEHE ZRH HME 
| * * * OBTAIN * 
| * SET TO SCAN * * SYSTEM * 
{ * ONLY 8 CHARe * *GENERATED NAME * 
| * IGNORE ANY OVER* * OR PGM NAME * 
* 8 * # * 
| HEH HE HE HEE SE FE HE HEE HE HE HE HH HH HHH HK HHH HHH 
| | | 
| | | 
| V Vv 
| HHH HHL DH KH HH HERE HHH HIKE BH MH HHH 
* * * SAVE * 
| * ADVANCE * * NAME FOR * 
| *PARAMETER SCAN * * MULTIPLE * 
| * POINTER * * COMPILATIONS * 
* * % * 
| HH TE HE HE HH HEHE HE HE HH HHH HEH HHH HH HH 
| | 
| | | 
t___________s 
| 
Vv Vv 
PROSSQT o*e ote 
G2 Ke G3 Re 
o* a) ot ee 
o* PROGRAM *. YES ot WAS ke 
Ke NAME «*—— *. NAME GPTION o* 
*.SPECIFIEDe* He GIVEN o* 
He e* *. o* 
Feo a ® Vv He a % 
* NO HH HH * NO 
| x * | 
| * C3 * | 
*% *% | 
Cee ee ee HHH | 
Vv { 
o*e. Vv 
Hi %e HHH HHH HHH HHH MH HH He HE HEI HEY 3 HE EEE EE EE EE 
o* Be * COMP ARE * * * 
* LINECNT *. NO * PARAMETERS * * * 
¥e SPECIFIED o *-———————_->*SPECIFIED WITH * * INSERT SYSTEM * 
#e o* * PARAM TABLE #* * NAME * 
Ke * * % % * 
He oe HH HH HH IE HE HE HH HEH HIE HE HE FE HE SE HE SE HEE HEHE 
* YES | | 
| l | 
| | 
i 
| | | 
V | 
PRS30 Vv o%e. | 
KK HH SL HHH HEHEHE J2 Xe Vv 
* * * Ke HEE J ZRH HH HEH 
* PREPARE * YES .* PARAM ee * % 
* + CONVERT * *e IN TABLE o* * RETURN * 
* LINECNT * | %e 0% * * 
* * | He * HHH HH EH HEH HH 
HEH HH HH HHH HHH HH Vv He o* 
| HHEK * NO 
| * * | 
| * AZ * { 
Vv * * Vv 
HHH RHE HH HH 
* % * * 
* O03 * * D3 * 
* * Fa * 
HHH HHEK 


PRS23 


* 
>*e 


eo 


OPTS20 


o*e 
Xe HEKHKEEHSHEHKHKHKHEHN 
Ke * 
*. YES * 
LINECNT= 2 ¥—______>* 
QUOTE .* * 
* * 
e* HRHKHKKMHHRMKEHKHHHHH 
NO 


¢—— — 


ae ce ee ce ca ee 


| 


HHHHGG HHH HEHEHE 


% 


>* 
* 


* 


RETURN * 


* 


HRKEKRHKEKERKHEKEKKE 


Section 2: 


SET FLAG 


Compiler Operation 


Chart AB. 


64 


DDNAMES 


HRRKAD HEH HHKHRKEEE 
* * 
* DDNAMES * 
* * 


HREKKKEKKRKEKKRHEHKEE 





< ee ee ce I ce a ce ee 


KHEEKKC DEK KEHKEHRHKEE 
% * 
* OBTAIN + 
*LENGTH OF DATA * 
* SET NAMES * 
% x 
HHH EHKMMHRHKHK EHH HE 


| 
Vv 
eoXe 
D2 = ¥e 
o* * 
e* DOES 
*. LIST EXIST 


e 
e 


HKHEHEKE DKK KKKEKRHEKKE 
* * 
* ADVANCE LIST ¥* 
* POINTER TO. * 
* FIRST ENTRY * 
* * 
HMHEHEKHHEHKK CHEK HEHE 





| 
| 
| 
| 


KHRHEKKGDHEKRKKKKHKHH 
* * 
* INSERT * 
*#ENTRY INTO DCB * 
* FOR SYSLIN * 
* * 
MEK HHHHKMHKHHRHKHHEH 


| 
| 
| 


HRHEHHD HH HH KH HK HH 
A 


* * 
* MOVE * 
* POINTER TO * 
* FIFTH ENTRY * 
* *% 
* * 


HRHEEKKKKKKHKKHEKE 


*<— 


e e 
J2 %e 
o* Be 
a DOES Be 
#. ENTRY EXIST e* 
* * 


* AG * 
* * 
HHH 


NO 


NO 





* 


>* 
* 


* 
* 


KEKE 


H4 


HHEX 


ee ee ee erences eae re ee co 


KHKHKKE ZFRHEEKRKHHKE 


RETURN 


KEE KEKHKEKRKHEKE 


* 
* 
* 


& 
* 


HREKE 


* * 
* AG *#—4 
* * 


HEHE 
Vv 

HERKEN KKHKHKHEEE 

* * 

* INSERT * 


*ENTRY INTO OCB * 


* FOR SYSIN * 
* * 


HRKRKKKEKKKKKKRKHKKEE 





Vv 
HRKKEBG HHKRRKHHHE 


* * 
* MOVE * 
* POINTER TO * 
* SIXTH ENTRY * 
* * 
* * 


HRHEKKHKKKKKKKEKHKE 


en 


C4 He 
o* Ke 
o* DOES Ke 
*. ENTRY EXIST e* 
e e 
He o* 
%e of 
* YES 
| 
| 
| 
Vv 
HHKHEKEDG RKHHEKKHKEE 
* * 
* INSERT * 


*ENTRY INTO DCB * 


* FOR SYSPRT * 
* * 
HHH HHH HH KH HH HH HH 


Vv 
HEHE EG HEHEHE KEKE 
* * 
*MOVE POINTER TO* 
*% SEVENTH ENTRY * 
* * 
* * 
HHH HEHEHE EEE EH 





v 
eke 
F4 He 
o* He 
o* DOES He 
%.e ENTRY EXIST o* 


v 
HEHKAGG KKHKKHHKKKH 
* * 
* INSERT * 
*#ENTRY INTO DCB * 
* FOR SYSPCH * 
* *% 
RHEKKKHHKHKHKHEKRKRKEKE 


HEHE | 
* * 
* H4 *—> 
* * 
HH HK | 


DONMOUT | 


Vv 
HHKEHG RH EHHKERHE 
* * 
* RETURN * 
* % 


HEKKKKKKKHKHRKEE 


NO 





NO 





* 


>* 
x 


% 
>* 
* 


KHHRKE 


H4 


HEHE 


HEHE 


H4 


HEHE 


* 
* 
* 


* 
* 
* 


Chart AC. 


HEADOPT 


HREHEAPKHKHKHHEE 


% * 
* HE ADOPT * 
*% *% 


HKHHEKRKHHKEHEKHKKHKEE 





le ee 


HHHHHBD UHHH HH HEHEHE 
* * 
* OBTAIN LENGTH * 
* OF HEADING * 
* OPTION * 
* * 
MME HH EE HH HEHE 


KL ee re ae 


o * He 
*% eHEADING LIST e* 
%e EXIST o* 
He e* 

%e o% 

YES 


<————— 


HHEKEKEDDKEKRHHKKEKKEE 
* * 
* SET uP Sa 
* CENTERING OF * 
* PAGE HEADING ¥* 
* * 

* 


HHKEMHHERHKHEK HEHE 


Vv 
KEKE D HHH HE HH EK 
* * 
*FORCE 119 CHAR * 
= LIMIT FOR * 
* OPTIONAL * 
* HEADING * 
HHK EEK HE KRKEKEH HEE 


on ee eer 


HRMKKE QRH HK HH HHH 
* SET * 
*HEADING ORIGIN * 
*AND LENGTH INTO* 
*PRINT MSG TABLE* 
# * 
HERE KKKEHEKE HEE RE HEE 


ge 


HH HH GDP HHH HEE 
% * 
* RETURN * 
* * 


HEKHEHKHHKEKHKUE 


HHHH CZ HHH RHEE 


RETURN 


HMHEKKRHKMKHEHHKHE 
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Chart AD. 


66 


TIMEDAT 


HHHH ADH KHEHEKE 
* ¥ 
* TIMEDAT * 

x 


HREKAKHHKHKKHKEKHK 


< ed 


HHH HB 2 HH HH HEHE 
# SET UP * 
* UNIT * 


* SPECIFICATION * 
*FOR TIME OF DAY* 
* * 
HEKKH EKER HEHEHE 


| 
| 


HEHEHE CPDHKKEKKKKEE 
® GET * 
* TIME AND DATE * 
* FROM SYSTEM ¥* 
* SUPERVISOR * 
% * 
HHH HHHEHHHHEHH HHH 








Vv 
HREHHOD HHH EKHE 
* * 
* INSERT # 
* TIME INTO * 
* HEADING LINE * 
* % 

* 


HREEHRKKERKKHKKKKE 


I 
Vv 
HRHHKEE DEKH HKHHER 
* 
* INSERT 
*DATE INTO LINE 
* 


% 
HRHEHEKHHKEKKHEKEKHK 


| 
| 
| 
’ 


HEHEHE DRKKKEKKEKE 


* 
% 
* 
* 
+ 
* 


* * 
* RETURN * 
* * 


KEG HHHKHREKHKHEE 
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ecChart 04.1. 


START 
COMPILER 


STATEMENT 
PROCESS 


G0630 


*R REDD RE EE EE 
* * 
* IEYPAR * 
* * 

ok oR Re Re RE RE 


£4 OE BD eR EE EK KE 
* 


* 
* PROGRAM * 
*INITIALIZATION * 
* * 


* * 
or eT Crrrr res £2 2. 


ARR ARC De RO RRR OR 


* READ ONE * 
CARD INTO 
* INPUT AREA * 


KEKKKKKAK KEKE 


Vv 
HK ERD FR AE RR RAK 
* TURN ON FLAGS * 
*  IJNDICATING * 
*FIRST STMT AND * 
*PREVIOUS PRINT * 


* COMPLETE * 
RE ROR ROK EE RE EK 


* KK 
* * 
* £2 *-—> 
+ * 
KE 
G0631 
EKKKRA RD EERE EEE EK K 
PRT/RD SRC-BAA2 
* —k~ RK KR KR ER EE 
PRINT OLD STMT 
* AND ERRORS * 


READ NEW 
CK oR RRR 


G0632 V 

TELE S WESSEL ELS ee: 
* STA INIT-BBA2 * 
*—*-#- kK 4-H KH 
* INITIALIZE * 
* FOR NEW * 
* STATEMENT * 
ok RRR A RR GR RK 


G0635 
HERKEG 2 REAR EEE AEE 
*LBL XLATE BCA2* 
*—*k—#— #4 — 4K — 4 —* 
* PROCESS LABEL * 
* FIELD AND * 
* COL 6 * 
RO OR dR EO 


* 


H2° "*, 
.+ LABEL *. 
YES .*° OR +, 
aah, COL 6 + 
| +. ERRORS. + 
*. o* 
eK * NO 
* * 
* BD * 
* * 
Ke RE 
G0636 


RRRRE TDR EER EE 
*STA XLATE- BDA1* 
*-— *— KF KK KK 
* PROCESS * 
* ENTIRE + 
* STATEMENT * 
BRERA EKKKEEKEKEKSE 


| 


* KK 


+e % 
ies) 
£ 
Hye 


PHASE 1 - PARSE (Part 1 of 2) 


* KK 


BY 


* KK * 


G0633 | 


fe ok B UDR eo Rae 
*STA FINAL- BEA2* 
¥— *- #- -  K  E 
*COMPLT POLISH. * 
*CLOSE DO LOOPS.* 


* MOVE POLISH. * 
RR RK OR RE EK EK 


+ + 
St ad 


.*, 
THIS IS THE FIRST Ch #, 
CARD Of ‘THE FIRST .* LAST *#. 
STATEMENT. INITIAL NO .* STMT OF *. 
COMMENTS ARE WRITTEN —-*.SOURCE MODULE. * 
OUT IN THIS OPERATION. | *. PROCESSED. + 
*, .* 
kK * YES 
* * 
* FQ * 
* * 
KA 
.*, 
Do, 


.* . 
YES .* LAST *. 
—--*. STMT FLAG = .* 
*(END CARD) .* 


*. * 
tk RE * NO 
* * 
* FY * 
* * 
4k AF 


AT COMPLETION OF ek tok EB Up eka kok ok 


PRINT AND READ * * 
SOURCE, STMT TO * RECORD * 
BE PROCESSED IS * 'NO END CARD‘ * 


ON SOURCE ROLL. : ERROR MESSAGE : 


cee erCerrer sr £2 2 2 
* CK K 
* 


* FY *—> 
* * 
+ 4k 


KEE Ye EK KEK KEK KE 
* * 


* SET INDICATOR * 
* FOR READ * 
. COMPLETE * 


* 
err ererrrrre ss 2s 


PETE Teerr re ees ss | 
*PRT/KD SRC-BAA2 * 
*— kk eR KK KR 
*PRINT OLD STMT * 
* AND ERRORS. * 


* READ NEW STMT * 
SOIR RR IGF 


Section 2: 


ee He 
w 
ew 

ee 


V 
. *. 
B5 ¥*. 
* *. 
YES .* WAS *, 


—-~—*. THERE AN END .* 
CARD * 


*. 
KK * NO 
* * 
* HS * 
* * 
CK 
Vv 
.*, 
c5 *. 
* aa 
.* LAST *. NO 
*.STMT AN ARITH. *-~—- 
*, IF .* 
*, .* 
*. L* 
* YES 
GO844 


FORD 5 oR RR 
*PROC POL BGA2* 
e— kk ROK KK 
* COPY POLISH * 
* ROLL TO AFTER * 


* POLISH ROLL * 
ROR RE ORK RR 


V 
#063003 *, 
E5 


* *. 
YES .* . 


LAST * 
—--*. STATEMENT A .* 
*. BRANCH oe 


*, OL * 
KK * NO 
* * 
* HS * 
+ * 
Ke 
GO642 


aE PRE tk tk 
*#ACT END ST BFA2* 
kK KR Ke RK 
* BUILD * 
*RETURN OR STOP * 
* POLISH * 
RIOR OE 4K br 


G0634 V 
ERIK GREER KE EEK 


*STA FN END BEDD* 
*#—*—*—* —*-—*—% —%-—* 
*COMPLETE POLISH* 
* WITH STMT CNT * 
* AND MOVE * 
FR RIOR OR EK 


* kk *K 
* * 
* HS #-> 
* * 

KKK E 

#063004 

HE KKK S KKK KK KK KKK 
* * 
* ACE * 
* END DRIVER ON * 
: POLISH : 


HK KER K KK KKK KE KKK 


G0634 
KEKKE TK KEKE KE EK EK 
*#STA FN END BEDD* 
KK KK Ke KK 
*COMPLETE POLISH* 
* WITH STMT CNT * 
* AND MOVE * 
KK KK KK EK KK HE KK KEK 


ERK 
#04,.2* 
* B2* 


Compiler Operation 


Form Y28-6638-1 
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.*, #063188 
D2 * RAKED KKK KK EK KEK 
.* * SET LOOP * 
.* XTEND *,. YES * DATE POINTER * 
*, LBL ROLL . *¥--——-——-~-—- +--+ >*ON SCRIPT ROLL, * 
*. EMPTY  J* * RELEASE * 
*. F * IND VAR ROLL * 
*, .* He ok ok KK ok ok ok ok KK oe KK OK KE 
* NO 
Vv 
.*. #063179 o*, o*, 
B2 *, E3 *, EY *. 
.* *, .* *, * * 
.* END *. YES .* TEMP *. YES * PGM *. YES 
*. OF DO LOOP oer =~ = >*. ROLL EMPTY .*-—— *, SUBPROGRAM) . *—----~ 
*, .* *, ~* } *, * 
*, .* *, .* *, | * 
* NO * NO kK * NO 
* * 
* * 
* * 
a 
V 
*, .*, 
HK KE EN] EERE KKEEERSE F2 *, 3 eR Ke KK Fu *. 
* * -* GROUP ¥*, * TAG GROUP AS * .* *, 
* REMOVE + NO .* TAGGED AS *. * POSSIBLE * .* BLOCK *. YES 
* GROUP FROM *#<—--—_—-—-~*, POSSIBLE .* *EXTENDED RANGE * *, DATA _* 
* WORK ROLL * * RE-ENTRY .* * CANDIDATE ON * *. PROGRAM .* 
* * *. POINT. * *LOOP DATA ROLL * *, .* 
KHEKKEKKKKKKKEKEKE SE *. .* KE KKK KK KKK KKK EH * otk 
| * YES * NO 
KKK 
* * 
* C2 * # 063180 V 
* * HHKKKEKGD EK K EK KKK KHEKKES SRE RKKKKHE ES KRKKA CH HKKKKEKKEE 
KKK * * * TAG THOSE * * * 
* PUT * * LABELS ON LBL * *SET SYMBOL AND * 
* GROUP ON TEMP * *ROLL WHICH MAY * *MODE FOR IBCOM * 
* ROLL * * BE RE-ENTRY * * ROUTINE CALL #* 
* * * POINTS * * * 
KKKKKKKKEKKKEKE KEKE REKKEKKKKKAKKKEKESK KEKE KKK KKK KKH KEKE EK 
* & HR 
* * 
* C2 * 
* * PSPSPS SLE ee Sees 2 KER REE EE RE AK 
* RK * * * * * 
* * * MOVE IBCOM * 
*CLEAR TEMP ROLL* * POINTER TO * 
* * * AFTER POLISH * 
* * * OLL * 
KEKKAKKEKKAKKEKEK EK REKKKKKEKKKEKEK EK KESE 
Cas oh Se 
OE ok 
* * 
* BR * #063001 
* * KHEKEK TL KEKEKEEEKE 
* eK 


RR ECD 8 CR EEE HOKE 


eH He 


REMOVE * 
*XTEND LBL ROLL * 
* * 
REE REE EK 


e Chart 04.2. PHASE 1 - PARSE (Part 2 of 2) 
KEK ee 
#0 442* * + 
* B2* * BZ * 
* * * * 
*. ee 
2 #63181 
B2 *. $B RR 
P x, * * 
.* XTEND *. YES * CLEAR RESERVE * 
*. LBL ROLL . *¥—-——————— >*MARK FROM XTEND* 
* RESERVED .* = LBL ROLL . 
er a eTTTTTTTrTririty 
* NO 
EK 
* * 
* C2 *-—> 
* * 
$e 
* 063178 


GROUP FROM * ¢———-—_—-———-—~—---——— 





* * 
* INITIALIZE * 
* FOR OPERATION * 
* OF ALLOCATE ¥* 
* * 
* * 


KKKKEKAEKKEKE KEKE 


HRKEKYRKREE ES EEE 
* * 
[ IEYALL * 


RACK AR A EAE EK SE 
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Compiler Operation 


67.1 


Chart BA. 


PRINT A CARD 


68 


G0837 


HHH ADH HHH HK HE 
* PRINT * 
*AND READ SOURCE* 
* * 


HEHEHE KEEKKEHHEK 


| 
| 


Vv 
HHKHHHBHYP HHHKHKHHEHEHH 


* * 
* TURN * 
* OFF NO PRINT ¥* 
* FLAG * 
* * 
HHH HEHE HK HH HH HH EK 


o*% DATA *e YES 

*.ON ERROR ROLL e *——4 

Ke o* 
He e* 

Ke at 

NO 


*<———— 


D2 Re 
o* He 
0 * SOURCE *®e YES 
Fe LISTING « *—— 
* eREQUESTED.* 
%. * 
%e o* 
. NO 


| 
| 


Vv 
HKHEKKE DS HHH HE EK 


I 
| 
| 
i 
I 
| 
| 
| 
Vv 


* * 
* TURN * 
* ON NO PRINT ¥* 
* FLAG * 
* % 
* % 


A Se A ES I SORA me AES ME SR Ae CS RE eC ee SS 


HEKEHAKHKKKEKKKKHE 


estat 
#83707 Vv 


HREKRE D HHRHKKHE KHER 
* 





¥ 
* INITIALIZE * 
* STATEMENT CD ¥* 
* COUNT * 
* *% 
MEK HKEKKKHKEKRHHHEKHE 


—_——> 


#83701 o*e 
G2 %e 
* %e 
o* PRINT #. YES 
%e OF STMT o* 
*.eCOMPLETE .* 
Ke * 


*<— 


He ok 
i NO 


Vv 
HEHEHE HHH D HH HEHE HH HHH 


* PRINT ONE * 
CARD AND ITS 
* ERROR MSGS #* 


HEKKHHEKREKHKE 


tere ee 


WRITE LISTING AND READ SOURCE 


#083702 
HHHKHEGZHERKHKHEKRE 
* * 


* MOVE 1 CD TO * 
>*SOURCE ROLL AND* 


* SET CONTROL ¥* 
* * 


KHEMKKKEKEHMHKKHHEE 


| 
Vv 
oe 
H3 
o* Be 
7* END Re 


eo STATEMENT ot oS 


*. PROCESS «* 
Ke o% 
Ke o% 

* NO 


HHH GG HEHE HEHEHE HK 
INITIALIZE 
* FOR NEW STMT>s * 
READ ONE CARD 
* AND PRESCAN * 
STMT 
HEE HER HHH KEK EH 





ce > 
#083703 o%*e 
C4 oe 
o% Ke 
o% %. NO 
*%.MORE TO READ «*——4 
#e e 
He o* 
He e 


* 
| 
| 


Vv 
* 


* 
YES 





i 
#83703 V 
KHHEKEKEEEKEDG HHEKKKHHHKRHE 


| 

| * WAIT FOR LAST * 

| READ COMPLETE 

| *AND READ ONE * 

| CARD 
HKKHKEKMEKRHKHHE 

| 


[ Seen Eee | 


#083704 Vv 
HEE HK SG RHEE HEHEHE 
* TURN OFF * 
* FLAGS * 


* INDICATING NO * 
* MORE READ AND * 
* NO MORE PRINT * 
HEHEHE EE HER HER EH 


Vv 
HRHEERKGHKHHKKKEE 


* * 
* RETURN * 
* * 


KHEKKEHKEKAKKREERE 


INIT 
READ A CARD 


READ A CARD 


Chart BB. 


INITIALIZE FOR PROCESSING STATEMENT 


G0632 


HRHHAD HEHEHE HHHE 
* 


* 
* STA INIT * 
* % 


KRHEERKKHKKKRKHKREKEE 


ge ee 


KRHEHKKEB DEKH KEK HHH 


* 
* INITIALIZE * 
* CHARACTER * 
* COUNTS * 
* * 
KHREHHHKEHKHHHHRMHHHK 


Ee men es a case 


HEERK CDK KEK HEH HEHE 
% % 
*SET CRRNT CHAR * 
*TO FIRST SOURCE* 
* CHARACTER * 
* % 
HEHE HHHE HHH HHK KHER E 


| 
| 


HEHEKED DP KEHKHEKHHHH 
* SET * 
*COUNT OF SOURCE* 
*STMT CHARACTERS* 
*TO NOe CARDS X * 
x 80 * 
HEHK HHH MRKH HEM HH HIKE 


Vv 
HEHEHE D HHH HHH HEHE 


* * 
* * 
* CLEAR FLAGS ¥* 
* + 
* * 
* ea 


HEKKHHEKEMHKKHHE 


<——— 


HHKEF DHHEKHKKHEKRH 
* * 
# RETURN * 
* * 


HKKHEGH KE HH HE HHH 
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e chart BC1. PROCESS LABEL FIELD 


G0635 
HARKADD RREKERE EE 


* * 
, LBL FIELD XLATE* 
KEKE AE EREA EEE AE 


*AKEAK BD KEK EKER KK 
* SAVE ADDRESS 
* OF CURRENT 
*BOTTOM OF WORK 


: ROLL AND EXIT 


OLL 
KR EEK EE EEE 


STATUS CONTROL 


HHH HHH 


HRKEACD EKER KHEKAKE 
*SET STMT LABEL. * 
* POINTER TO 0 # 
* AND SKIP TO #* 
*FIRST NON-BLANK* 
* CHARACTER * 
AK K EERE KKK E EF 


KKKAK EDK EKEKEKKEK 
* 


INITIALIZE 
FOR DIGIT 
CONVERSION 


HKKKKKKKKKKEK KKK KE 


* 
DIGIT . * * 
CONVERSION : : 
* * 
* 


kK 
* * 
* F2 *-> 
* * 
CE 

#063501 


* 


. 


-* *. NO 
raga A eee tc 


* * 


*. t 
; * YES 


HEKHKHG DEE EKEAKEEE 
* CONVERT * 
* ONE DIGIT TO * 
*BINARY. SKIP TO* 
*NEXT NON-BLANK * 


* CHARACTER * 
Terr errrrrr SST ss 


CONVERT ONE DIGIT 


(Part 1 of 2) 


#063503 te 
~* *, 
.* MUST THIS *. NO 
riot >*> STMT HAVE i+*----.--, 
*, LABEL * V 
‘ Z KKK KE 
*., | * *BC2* 
* YES * C2* 
* * 
* 


EKA ER FRR EERE EK EK 
* 


* 
* LABEL MISSING * 
* MESSAGE TO * 
: ERROR ROLL : 


HRERKAKKEKAKKHEK EEK 


re a re ee 


(SYNTAX FAIL) 
HKEKKKGS EE KKEKEKEKE 
* SYNTAX * 
* MESSAGE TO 
* ERROR ROLL. 
* RESTORE WORK 
*AND EXIT ROLLS 


* 
* 
* 
* 

KRKKKKKKKKKEKEKEKSE EE 


o*. 
H2 ¥*. V 
.* *. ATS 4 RK OR OE 
~* CHAR *. YES * RETURN * 
*. COUNT LESS .*-—— * (EXIT FALSE) +*# 
+. THAN 6 .* | + + 
‘ és SRR ACR RO OR a 
*, Ok 
* NO # RK 
* * 
* FQ * 
* * 
+e EX 
HHKKE TQ EK ERE KEE 
* MOVE LABEL * 
*TO LBL ROLL AND* 
REGISTER LABEL * LABEL POINTER * 
* TO STA LBL * 
* POINTER * 
RRR R RE RK KE RK EE 
-*, 
K2 *, eR RK 3 4 ER EEK 
.* *, * MULTIPLE * 
-* LABEL  *. NO * DEFINITION # 
*, UNDEFINED .*—~~-~--—-- >* ERROR MSG TO ¥* 
. .* * ERROR ROLL * 
*, .* * * 
*. Vt FOR RR HER ERE EE EEE 
* YES | 
Vv 
EEE eK 
*BC2* *BC2* 
* A2* * ADd* 
* * * * 
* * 
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PROCESS POLISH 


NON-ACTIVE END 
FLAG INDICATES 
PREVIOUS STMT 
ALWAYS BRANCHES 
WHEN IT IS ON. 
USED IN TEXT FOR 
GENERATION OF 
CODE FOR END STMT. 


*PUT POINTER TO * 
* THIS LABEL. * 
*MOVE POLISH TO * 


* AFTER POLISH * 
* ROLL * 


KEKE KKKKKKKEKE ES 


#063505 
HERRAED EKK EERE ES 
*SET NON-ACTIVE * 
*END FLAG TO NXT* 
* STA LBL FLAG * 


HEKKKKEKKEEKKEKEES 


.* GROUP *. 
.* TAGGED AS *. YES 


* TAG GROUP ON * 
*XTEND LBL ROLL * 


<~---* AS POSSIBLE * *. POSSIBLE . *¥-------—— >* 
*RE-ENTRY POINT * *. RE-ENTRY .* 
* * *.POINT.* 
HARE EERE REESE *. * 
* NO 


Vv 
aOR dO EY eee a EEE 
* * 


* REMOVE GROUP * 
ea ee * FROM # {~~ — 


*XTEND TARG LBL * 
* ROLL * 
KERKEKKKKKEEKE EEK EE 


o*. 
F2 *, 
x * A ok Rk 
.* CHAR *, NO * RETURN * 
* COUNT .*———-————— ae (EXIT TRUE) 2 
“#. 6 + Pee SPELT L ELS SS 
*, .* 
| YES 
ees 
G2 *, 
-* ° HHEKECZ ERE EERE 
YES * * 


.* *, 
*. CHAR A ZERO .* 
*, ',* 


* 


*. 
* NO 


* 


(SYNTAX 
HERE DEER EKE REESE 


* SYNTAX MSG TO * 
* ERROR ROLL. * 
* RESTORE WORK ¥* 
SAND EXIT ROLLS z 


HEAKKREKKEKEKRAKKEES 


HRAKHE TZ EREEEERERE 
SCAN 


* * 
* TO NEXT * 
* NON- BLANK * 
: CHARACTER p 
HEE EKKEKSE KEKE KS 


HERE K DERE REEES 
* RETURN * 
: (EXIT FALSE) : 
HEH EEREEEEREEE 


RETURN 
a ne me “are (EXIT TRUE) [ 


EKKKKEKKEKEKKKEKE 


FAIL) 


Section 2:3 


* TAG GROUP ON 
*XTEND LBL ROLL * 
AS POSSIBLE 
oe POINT : 


HERA AERA KE EES 


Chart BC2. PROCESS LABEL FIELD (Part 2 of 2) 
ee KEK 
* BC2x 
* A2* 
* *& 
* 
#063502 
HEKEADD EE RKARKEKES 
* * 
* MARK * 
* LABEL AS * 
: DEFINED : 
KA EABC 2K KEE KK 
A2 
a OK 
*BC2* 
* C2* 
* * = .*, 
* B2 *, B3 x, KARE BYR REE EEE KEK 
* *, -* INNER *. * * 
.* IN A *, YES * DO *, NO * PUT LABEL * 
*, DO LOOP - ¥—-—~—~————— >*. CLOSED FLAG . *——--—-——--——— * ON * 
*, eae . ON * 7 TEND LBL ROLL ; 
*, . e e 
*, C* *. PE CELE SELES SS Se 
* NO * YES 
ets eee a > 
| —-- ee 
#063504 .*, o*, #063581 o*. 
C2 *. C3 *. cy : 
; *, -* IS *, -* @IS *. 
NO .* LAST *, NO .* LABEL *. NO .* LABEL ON *. 
——~—*.STMT AN ARITH.* ~i<-—*. PREVIOUS . #<—-—--~+~+-—— *. XTEND TARG .* 
*, IF .* *. TARGET .* . B 7 
. a . *. ROLL .* 
*, .* *, .* *, Ct 
* YES * YES * YES 
o*, 
KKK DEE KKK EE KEK DY KK REE EE D4 * *HEEE DO KEE RE KE EEE 


* 


* 
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Chart BD. 


G0636 


HHREAL MRHHEMERHEH 


* * 
* STA XLATE * 
* * 


HHRREKERMRHEEREHREHEH 


HHH | EE 
* * 
* RETURN #< 
* * 
HERE 


G0637 


RHE |] RHEE 


# ASSIGNMENT STA * 

* XLATE * 

* + 
HRHBRHEHEKHHKEREEH” 


PROCESS STATEMENT 


ERHRKEAD HREKHEHREEE 
* * 
* SAVE * 
>* LOCATIONS OF * 
* WORK AND EXIT * 
* * 
MEH MMR HH UH HHH HEHE 


HHHEHBH DEREK REHRE 


* RECORD * 
* ILLEGAL * 
* STATEMENT ¥* 
* MESSAGE * 
* * 
MER MRGMAHEH HHH HHH KE 


o* #e 
>*eSTMT FUNCTION: * 
Fe es 
%e o* 

He ot 
NO 


om emma iE 


Vv 
ERR RED DEE ERE 
* CONSTRUCT * 
* POLISH FOR * 
* VARIABLE * 
* EXPRESSION * 
* * 
* * 


MEKKEH EEE EEE EH E 


STA XLATE EXIT 


< 


YES 


eet 


o*e 
A3 e 
o* Fe 


o% ASSIGN- *e NO 


> e MENT TYPE 
%e STATEMENT e* 
He o* 
He oF 
* YES 


o* He 
YES «* IN He 
*. BLOCK DATA o% 
*%.e ROUTINE o* 
He o* 
He ot 
* NO 


ARITH 


| XLATE 
| 
| 
| 
Vv 


HREHEED SHEE KEENE 
* UPDATE ROLL * 
* AND CONSTRUCT * 
x POLISH FOR * 
* FUNCTION * 
% * 
HERKEN ERE EE 


| 


G0732 o*e 


* *. NO 


* SEVERE ERRORS.* 
%e o% 
He e* 

Me ot 
YES 


* 
| 
| 
Vv 
o*e 
F3 Re 
o* ke 


e*® ACTIVE ¥%. NO 


He STATEMENT o* 
%e * 


v 
HHEKKEEGZEHKHHEKEERE 
* * 
* REMOVE POLISH * 
* AND REPLACE ¥* 
*WITH ERROR LINK* 
* * 
KEKE HRKHHKEKEKHRKEKE 





Vv 
HERKEN GHEE REEEN 
% * 
* RETURN * 
* * 


HEHEHE HEGEL HE 


FUNC 


DEF STA 


EXIT 


ot ot} 


Ct cee es ee oe 


HHKKEG SG RMR KHMHEHRHE 
* % 
* SCAN STMT * 
* TO DETERMINE * 
* TYPE * 
* * 
HEME HKHE MH HEHEHE 


1 

Vv 
HHKEKECG KHKEKKEHEE 
* UPDATE ROLLS *#* 
* AND/OR * 
* CONSTRUCT * 
* POLISH FOR * 
* STATEMENT * 
HEGRE HEEHEMHHEKHEHERH 





HHHHKE G HHEKKKHHER 


% * 
>* RETURN * 
* * 


HKRHEKKGEKKEKEKKRHEE 


HHEKFGKRKHKHHKRHHEE 
* * 
>* RETURN * 
* * 

HKRREEREHEKHRRHKHE 


EXIT 


EXIT 


Section 2: 


LITERAL TEST 


THIS OPERATION 
IS PERFORMED BY 
THE STA XLATE 
ROUTINES 
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eChart BE. COMPLETE STATEMENT AND MOVE POLISH 
G0633 
HHKKED] EKKEKERESE 
* * 
: STA FINAL : 
HEEKEKEEEEAEKES EE 
* * 
* BY * 
* * 
REE 
#063302 
KEKE] HRKEKEREEE REA BY EEE EEE KEES 
* * * * 
* INCREMENT * * MOVE GROUP * 
*STATEMENT COUNT* * BACK TO DO * 
* * *LOOPS OPEN ROLL# 
* * * * KEKE 
KEE AKKAEKKEEAEESE HK KR ARERR EEK ESE *BE * 
*D5 * 
* * 
* 
we een > 
o*, #063303 .*. 
C1 *. c4 *, 
‘ *, KEKE EKEEEERES .* J 
-* *. NO * \ * -* THIS *,. NO 
*. ANY POLISH .*--~-~--—-—— >* RETORN * *. STMT LABELED .*-——--~———-—-—~——-—-—— > 
*. * s cf 
* _* HE EEK EEE EE KE *, .* 
*, C* *, C* 
* YES * YES 
| THIS FLAG ON INDICATES STA FINAL END 
-*. ONE OF THE STATEMENTS G0634 
D1 *, WHICH MAY NOT TERMINATE KEKKK DYKE KE KEKE HEKHEED OK RKRKEEEKE 
-* *, DO LOOPS * * * 
.* *. YES ; * PUT POINTER ¥* * PUT STMT * 
*. JUMP FLAG ON . *-~—-—-—--—~—~--—--—~————~ = nn ene > * TO LABEL ON *--—~—--—— >* NUMBER ON * 
*. -* * POLISH * * POLISH * 
*. .* * * * * 
*, CL * KKK KEKE EEE E RHR EKER AEE 
* NO 
tk dk 
* * 
* EL *-> 
* a eer et aa a co a ee a a 
eK V 4 
#063301 .*. .*. 
El *, E4 *. 
* *, .* * HEKAES €RKKKER KS 
-* DATA ON *. NO ~* THIS SIMT *. YES * * 
*.THE DO LOOPS .*—-----———~—-—-—-—~—-————~—-——-—~+-—-—-——-—~--——— a a a ne a ee *.AN ARITHMETIC. *—--—~—-——-—~— >* RETURN * 
* OPEN ROLL. * *. .* * * 
*, .* i, 3 RRR KE KEKE EEK 
*, .* *, L* 
* YES * NO 
KEKKEE] KEREEEE EEE ERKKE EYE EREREEE EK 
* * * * HKKK LOE KEKEEREEE 
* MOVE ONE * *MOVE POLISH FOR* * * 
* GROUP OFF THE * * STMT TO AFTER *-~~——--—- ——>* RETURN * 
* ROLL * * POLISH ROLL * * * 
* * * * HEKKKEKEKKEEKEE 
HK KKREKEREAEEE EES KKK EAEKKKEEKEEEE SE 
o*. *, *, #063377 
G1 *, G2 *. G3 *, HAKERGY EEK EEE EKES 
Pe, . * *, * * * * 
* Is *. YES -* NNER *. NO -* ANY *. NO * CLEAR * 
*. STMT TARGET . *—-—-—-—-~-—— >*. DO CLOSED *-—-———~——— >* .TRANSFERS OUT. *~--—-~——~—— >*XTEND LBL ROLL * 
*. LOOP .* - FLAG 7 *. OF LOOP .* * * 
SEE *. s *. ON .* * . * * 
NOTE *. .* *., J *, * HEKEKKKEEREKRERE EE 
| NO * YES * YES 
**4% Ce 
* * 
* BY * #063388 
* * ERKKKA DEER ERERER HEKEEE RKKEEEERKE 
** eK * REMOVE * * * 
*GROUP DEFINING * * CLEAR * 
* DO VARIABLE * * XTEND TARGET * 
* FROM IND VAR * * LBL ROLL * 
* OLL * * * 
REE EREKEEKES HK RAE OEE EEE EEE 
#063378 
NOTE KEKE TD ERE KES KHEKK TI REKEKES 
*RESERVE PROGRAM* * 


THE TEST COMPARES 
STA LBL PNTR 
WITH THE GROUP 
FROM THE ROLL 
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* SCRIPT ROLL, #* 
* COPY SCRIPT #* 
* ROLL, RELEASE * 
* SCRIPT ROLL * 


EEKKEKKEKEKEKEKEEES 


HEREEK] CRRERAEERE 
*MOVE NEXT GROUP* 


HRKKEKKEKEAKKEKEEEE 


eee 
* 


| * 
—>* E1 
* 


* 
* 
HEKK 


* 
* SET INNER DO * 


-----#CLOSED FLAG ON. #<-----—~-~------— 


*x 
REKKKKKKKEKKKE 


* 


Chart BF. PROCESS END STATEMENT 


G0642 


HHH HAD HHH HHH HHH 
* % 
* ACTIVE END * 
* STA XLATE * 

HHI HH HH EH HE HH 


<< —— 


B2 ¥e 
o* He 
o% LAST *e. YES 
*. STATEMENT A o* 
*. BRANCH o* 
He .* 
Xe ot 
* NO 


xc— 


C2 Ke 
o * Ke 
e*SUBPROGRAM *. NO 
¥e BEING e* 
*®.COMPILEO .* 
Re ox 
eo oe 
* YES 


C—— 


KRHHEHKDPKHKEKKEKHHHKEKE 
* 


% 
* PLACE * 
* RETURN DRIVER * 
% ON POLISH * 
* % 
* * 


HRHEKMRHHKHHEHKHKRERE 


HREKKBHAZEHMKHHEKEHEE 
% * 
>* RETURN * 
% * 

HHEHKHHRKEKREHHHHHRE 


HHEHEC ZRH HK HEHE 
* * 
* BUILD * 
>* STOP POLISH #* 
* ¥ 
* 

* 


* 
KHRKEKKHKKHHHKEHKKHEE 


Se es 


HEHE DZHEHHKRRHHER 
* * 
>* RETURN * 
* % 


HKHHHKHHHKHEKKHRKE 


Section 2: 
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Chart BG. 


74 


PROCESS POLISH 


GO844 


HHKEKAD HHKKEK KEE 


% * 
* PROCESS *. 
* * 


POLISH 
HEHEHE HH HK HH HHH 


Vv 
HHHKEBD HHH HH HHH 


. 9 * 
* GET NUMBER ¥* 
* OF WORDS ON * 
* POLISH ROLL ¥* 
* * 
* #* 


KHKKRKEKHHKKKHEKKE 


¢— 


HHEEHKCPKKKKKHEKKEE 
* 


* 
* PLACE * 
*COUNT ON AFTER * 
* POLISH ROLL * 
* * 
HEHEHE HH EHH HEHE 


Se ce te cae 


HHEKKHOD EH HK HH HKEX 
* * 
* COPY POLISH * 
* ROLL TO AFTER #* 
* POLISH ROLL * 
* * 
* * 


KHKKHHEH EHH HEH 
| 
| 
I 
{ 
Vv 


KREHEHEHKE DHKHKRKHEKHKE 


* * 
* * 
*RELEASE POLISH * 
* ROLL * 
* * 
HHEKKKEKK KH HHKEHHEE 





| 


Vv 
HHEHHE DHHKEKHKHEE 


% % 
* RETURN * 
* * 


RUHKMKHHRHHKHKHKH 








Chart 05. 


PHASE 2 - ALLOCATE (Part 1 of 2) 


HHH 
* * 
* AZ *— 
* * | 
HEHE | 
G0359 GO381 Vv 


MEEK AL HEHEHE KEHHEH 


HERKHKKAZHEEKH HEHEHE 
*EQ AL PTER-CKA2* 


* START * HH HK — KH KH KH 
* ALLOCATION * * ALLGCATE ADDR * 
* * * FOR EQUIV * 
HM EE HHH HEH * PRINT ERRORS ¥* HHH HH HH 
SE HEHE HE TET HE HE EEE EE HE * * * * 
| * B4 * # BS * 
| % % * % 
| HHH HHH 
| | | 
| | | 
{ | \ 
Vv v GO401 Vv G0402 Vv 


HREHEEGH 1] CHM HEHEHE EE 
* 


* 
* * 
* INITIALIZE * 
% * 
* * 
* #* 


HRHEEKEBDYZHEHHKEKHHHEE 
* TURN GN FLAG * 
* FOR PASS 1, * 
*RESTORE OBJECT * 
* MODULE * 

* 

* 


KEHHKBG HH HK EH HEHE 
*ARRAY ALL CNA2* 
K— HK —H— KH HHH 
* ALLOCATE ARRAYS*® 
* AND ADD * 


HHHEHEH DS HEHEHE HEH HHH 
*GBL SPG AL-COA2* 
HK KH HK HA HH 
* ADD BASES FOR * 
*  SUBPROGRAM * 


HEE * LOC COUNTER * REQ*D BASES #* * ADDRESSES * 
HH EH HK He * * MEEK HHH EME HH HER HHH HEE EH EE EH HE HHH HH HE EE HE HH 
| * C2 * i | | 
| * * | | | 
| HEHE | | 
| v 
| | HEE 
| | * * | 
G0543 Vv GO365 Vv Vv * BS * G0442 Vv 
HHH HEC | HK HHHHHEH HHEKHHC DHE HEHEHE RHEE HHEKKKC AHHH HHH HH * * HHKHHE CEN HHH HHH HEH 
*A LBL/LSPG-CAA1* *OMY/PNTERR-CDA2* * DETM PRESENT * HHEX *SPG ARG AL-CPA2* 


Hk —K HHH HH 
*PUT LABELS AND ¥* 
*¥STMT FUNC NAMES* 


* ON BCD ROLL * 
HREKHE HEHEHE EERE EN 


GO0362 Vv 


HW RKEHD 1 REE ER HE 
*PR EQ/PTER-CBA1* 
ee ee 
*CALC EQ OFFSETS* 
* AND PRINT IF * 


* QUTSIOE ARRAY * 
HEME EHH EEK EEE EK 


| 


{ 


HH HH HH KK 
*# ASSOCIATE DUMMY* 
*DIMS WITH ENTS;* 


* PRINT ERRORS * 
HE KM HHH HEE 


| 
| 


GO371 Vv 


HHH DD MH HEHE HEHE 
*PRC DO LPS-CEA2*® 
H—H—K—K—H—H— HH 
*CHECK FOR UNCLS* 
*00 LOOPS AND PR¥ 


* AND MARK ERRS * 
HERE HEHE RHEE 


fe 


*SIZE BASE TABLE* 
*ADD S GROUPS TO* 
* SIZE» RESERVE * 
* ROLL * 
HH E HEHEHE EERE 


| 


Vv 
HKEKEHD ZRH KRK EME 
* INDICATE ¥ 
* PRESENT * 
* ALLOCATION IS * 
* IN OBJECT * 
* MODULE * 
HERE KEE EKER HEE 


<—-————— 


HHH H-— H—H- HK 
¥*ALLOCATE* ARG * 
* LISTS* ADD * 


*REQUIRED BASES * 
HHH HH HH HH HEH 


| 


GO0444 Vv 


HHKHKKO SHH HHH HEE H 
¥LIT CNS AL-CRA2* 
KR H—-¥— HHH KH 
* ALLOC LITERAL * 
* CONSTANTS ADD * 
*¥BASES REQUIRED * 
HEHEHE HEH HH EHH 


Vv 
o*e GO372 G0437 GO0445 Vv 
El Ke HHHKK ELD HHH HEH EE HKERKEKE ZRH EHH HEH HHHHK ES HM HHH HHH 
o* *e *¥LBL/L SPGS-CFA2* *B/B TBL AL-CLA2* THE ROUTINES *FORMAT ALL CSA2* 


o* BLOCK *. 


Ke DATA o* 
*eSPECIFIED.*® 


HK — KRHA KKK 
* CONSTRUCT * 
* BRANCH TABLE ¥* 


HK H— KH — HAH HK 
*USING SIZE ESTs* 
*ALLOC SAVE AREA* 


CALLED IN PASS 
1 DETERMINE 
THE NUMBER OF 


H-R—H—KH—HKH—H-—HKH-—-H-F 
* ALLOC FORMAT * 
*STMTSs ADD REQ.* 





Be o* * ROLL * *BASE TSLsBRTBL * BASE TABLE * BASES * 
He ok Vv HREM RRR RHR EHHKHKE KREEKKKKKH HK KH HHH ENTRIES MHKHH KH HHH HHH HH 
* YES RHEE REQUIRED 
t * * FOR THE 
| * C2 * OBJECT MODULE 
Vv * * | | DATAs AS | 
HRKEK HR | WELL AS PER- | 
*CC # | | FORMING SOME | 
* Al* GOS361 GO374 Vv Vv INITIAL Vv 


* * BLOCK 
* DATA 
PROG 


ALLOCATION 


GO0377 


HHHEKG DKEHEKKHEKEHH 
*BL PGM ESD-CGA2* 
X—-H—H— K— H—HKH—H—HR—* 
* ALLOC HEADING * 
*BLD AND PNH ESD* 
*FOR PRO AN ENT * 
KHKKEMMRHRARKHHEHHERKRKEE 

| 

| 


| 
| 


HK HKG DEKH HK HEHEHE 
*ENT NMALL—CHA2 * 
re 
* IF SOURCE A * 
*FUNCs, CHECK FOR*® 
* ASGM OF VALUE * 
HHH HEHEHE KEKE HEHEHE 


| 


| 


Vv 
HER HHH DEK EHH KEKE 
* * 
* SAVE OBJECT * 
*MODULE LOCATION* 
: COUNTER * 
* 


KEKEKKHHEEHHHHHK HEE 


GO0376 


<—————— 


HEHE SDK HKHKKHHE 
*¥CM ALL/OUT-CITA2* 
HH —-H—H— HK K— HH — EK 
* ALLOC CM STGs #* 
*PRINT ERRORS AN* 


* MAPS PCH ESDS #* 
HHNKHEH EK HHEHE KEE 


| 


| 
Vv 
KHEK 


* AB * 


NREKH 


GO0397 


HRKHEKK FRHKHHHHRKKKE 
¥* 7 
* INCREASE * 
¥LOCATION COUNT * 
* BY EQUIV SIZE * 
* *% 
HRHKKRKHHKRMKMHHERHEHRE 


| 
| 


G0438 Vv 


KHKHKHG ZRH RE R KKH ERE 
*BLD AD BS-CWA2 * 
H¥—R—K—H—H—H— HH —¥ 
® BUILD BASE * 
* TABLE ENTRIES * 
* INDICATED * 
ee ee oe es 


G0443 Vv 


HREM HHH HEHEHE 
*PREP NMLST-CQA2* 
Se ee oe ee or 
*®ALLOC NAME LIST*® 
* TBL ADD BASES * 
* REQUIRED * 
HHH HHH HHH HE HK 


Ce ie 


HHH H J ZH MH KH HHH HE 
*#SCALAR ALL CUAI1* 
HHA KX — H— HK HK — HH 
* ALLOC SCALARS * 
* ADD REQ*D * 


* BASES * 
ete ee eee 


HRKEKE 


OK Ok 
ie) 
‘~ 

* Ok Ok 


KHKHE 


ALLOCATION 


r 


| 

Vv 
HHHKKEGG HHRRHHHHEE 
*DEBUG ALL-CXA2 * 
H—K—H— HK — HK — H_ KH 
* MARK INIT * 
* AND SUBCHK * 
* VARTABLES * 
HEE KRRKHH HH HH RHEE 
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HKEHHES HEHEHE HEE 
*RESTGRE OBT MOD* 
#LOC CNTER DETM * 
*TRUE SIZE BASE * 
* TABLEs END * 
* PASS 1 * 
HHH KKMKHH HEHE EEE 

| 

| 

| 


Seen mere 


HHHHEGSHHHKEHHEKHEK 
* ASCLR/SPRG-CAA3* 
MH—-H-—H-—-K-—H—H-—H-—H-—* 
>* ENTER NAMES) * 
* ON BCD * 
* ROLL * 
HMHHRMHKHRKHKHHHHEKHHHHEK 


GO0437 Vv 


KHKRKEKEKHSRKRKKHKEKE KE 
*B/B TBL AL-CLA2* 
KH—H—H—H— KH— K— H— KH 
*ALLOC SAVE AREA* 
* BASE TBL AND ¥* 
* BRANCH TABLE * 
HHH KHHK HH HHHHKHHHEK 


| 
| 


I 
| 
| 
l 


GO441 Vv 


HEHEHE JSS MKKHKMHHHN 
*#EQUIV MAP CTA2* 
%¥—K—H—-—K—H—HK—H-—HKH—K 
* CORRECT ALLOC *- 
*EQUIV DATA AND * 
* PRINT MAP % 
HHEKKHKRKRKHKHKKHKHKKE 


HRKHK 
*06 * 

* Ao* 
% 
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Chart 06. PHASE 2 — ALLOCATE 


REKEE 
*O06 * 
* Bo*¥ 


60397 Vv 
HRHEEKBHDHHHHHHKHEE 
*SCALAR ALL CMA1L* 
K~ H— H— Hm KH — H— HH HK 
*#CORRECT SCALAR * 
* ALLOCATION, ¥* 
* PRINT MAP * 
HREKHMEM EHH HKEKE KNEE 


| 
| 


I 

G0401 v 
HHEKRNRCODHEEKHEKRKEHE 
*#ARRAY ALL CMA2 * 
K— H—~— H— H— K— KR— H— H—* 
* CORRECT ARRAY * 
* ALLOCATION, * 
* PRINT MAP ¥* 
RHE RHEEHKREHHEHEKHHEE 


G0403 Vv 
HEHE OD HERE EEEH 
*GBL SPG AL CUA2* 
Se ee 
* ALLOC SUBRTN * 
*ADDR PRINT MAP: * 


*% PUNCH ESDS * 
HE HEH EHH HEE EE 


<-— 


G0442 
HRHENKRED HH KKKE RHEE 


*SP ARG ALL CPA2* 
H— HH KH KA HH 


* ALLOCATE * 
* ARGUMENT * 
* LISTS * 


HEKHHEEGHKEKEHEKEHHEH 


Ce re 


GO0405 
HEHE DHRKKKHE HEE 
*BLD NMLST-CVA2 * 
H— H— H—H— HH KK 
*CONSTR AND PCH * 
*TXT CDS FOR NA-* 
* MELIST TBL * 
HRM REEE 


Ce ere 


G0444 
HRHHHGD HH HREK HHH 
*LIT CNS AL-CRA2* 
K~- H— H— HK — H— HK — H— H— HE 
* ALLOC LITERAL * 
* CONS AND PNCH * 
* TXT CARDS * 
KERR HHHGHKREHHKKHKHE 


G0445 v 
HHEEHKHHDKRKHKKKRHHHEE 
*FORMAT ALL CSA2* 
H—HR—H— HK — HK — HK — H—H— * 
¥ ALLOCATE FORMAT* 
* STMTS» PUNCH * 
* TXT CARDS * 
HHH MH KH HH HH HH HH HH 
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(Part 2 of 2) 


HHH HH 
* * 
* Ba* 
x 
* 
| 
| 
I 
Vv 
HHEKHBGY RK HEHEHE 
* RELEASE 


% 
* ROLLSs OBTAIN * 
* OOUBLE WORD * 
* BOUNDARY FOR #* 
* 
* 


* BASES 
HHH HHH KEK HHHE REE 


| 

Vv 
HHH ACG HEH HHH HHH 
*CALCULATE BASE * 
*AND DISPLACEMNT* 


* FOR TEMP * 
* AND CONST * 
* ROLL * 


KEKHHEHEHREKHKKMHEHE 


Ce. 


G0438 
HERE E DG HHKN KH HEEKRE 
*BLD AD 8S-CWA2Q ¥ 
HHA HH — HH — HH 
* BUILD 3 BASES * 
* FOR TEMP AND ¥* 


* CONST AREA * 
HHH HHH HHH HHH 


Cece ee 


HRKEN EG HERE ERHHHEE 
* * 
* PREPARE *% 


*#FOR UNIFY PHASE* 
* * 


* * 
KKK KKKRKEKKEKKMHKRHHE 


come cemns ene enemy meee nore 


HRHEKREPGHRHHHNHHKHEH 
. 3 * 
* TEYUNF * 
% *% 


HERKHKKKENRHEKHEKE 


RELEASE 
ROLLS 
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Chart CA. MOVE BLD 


G0543 


HH HEDALEEEERERED 
* ALPHA * 
* LBL AND L * 
* SPROGS * 
oe EE EEE EEE KE 


KEKKERB]EREREEEEED 
* RELEASE DATA * 
* VAR ROLL, SET * 
* UP POINTER TO * 
* NEW GROUP ON #* 


* DATA VAR ROLL. * 
HEEEEEKEERERESE ES 


Vv 
HEE KAC] REE RER EE 
* SAVE POINTER * 
* TO LABELS. : 
* POLNTER * 
* TO LBL ROLL. #* 
KEKEEEEE EEA EERE EE 


KeEEK 


Pi *. 
.*° ENTIRE °*. YES 


#. LBL ROLL  .*----~---— > 
* . PROCESSED. * 


*, .* 
* NO 


HEKRKAB] EEKEEEE EES 
* * 
*MOVE NEXT LABEL* 
* TO * 
: DATA VAR ROLL : 
EEKEEKKE REESE RES 


* RK 


eee 
0 
e 

eee 


% eK 


WAMES TO DATA VAR ROLL 


ALPHA L SPROG 
HHEKAD DEREK EEEES 


* SAVE DATA VAR * 
*ROLL POINTER AS* 


* FUNCTIONS * 
HERREEE EER EEEEEE 


CHEEREED HEEEEEEEEE 
* * 


* SET UP 

: POINTER ROLL 
* 
RAKE EEE EEE EEE EE 


+e ee 


REED EEE EEEEEE 
* ALPHA * 
* SCALAR ARRAY * 
* AND SPROG * 

REREEKEEREKEERES 


HREEKB IEEE KHER EEE 
* SAVE * 
* DATA VAR ROLL * 
* POINTER AS * 
* POINTER TO * 
* SCALARS * 
REREHAEEEA EER EKER 


HRKEKACZ EKER EREE 


* 3 
* SET UP * 
* POINTER TO * 
. SCALAR ROLL ° 
KKEKKEKKEKKKAKKEKKEKE 


HKEAEK OS EEE EEEKES 
*A/D VAR RL-CAF4* 
kk #4 —4— 4-4 4+ 
* MOVE * 
*SCALAR NAMES TO* 
*DATA VAR ROLLS * 
EKER HEE ERERE ES 


HRKKKE JRKERKEEKES 
* * 
* SAVE DATA VAR * 


*ROLL POINTER TO* 
‘ ARRAYS R 


RKKKKKKKKERKKEEKEK 


HKHEAKKEL ZREKEKKKEERK 
* 


* 
* SET UP * 
* POZINTER TO * 
: ARRAY ROLL : 


REKKKKKEKHEEKEKEEEK 


HREKEKCZERKEKEKERE 
*A/D VAR RL-CAF&* 
4% 4k 4 — ke 4 
* MOVE * 
*ARRAY NAMES TO * 


* DATA VAR ROLL * 
EEE EE EEE EEE EE 


FEEEKA 3 EEE KEKERES 
* SAVE DATA VAR * 
*ROLL POINTER AS* 
* POINTER TO * 
* GLOBAL * 


* SUBPROGRAM * 
HEKREREEKEKEKEEES 


KEKKKT FRESE KKKEKES 
* * 


*SET UP POINTER * 
* TO GLOBAL * 
34 SPROG ROLL : 
EEE ERE EEKEES 


KEKK 


eH H 
wo 
- 

+ % % 


KEK 


#4 


+h % 
ow 
- 
tee 


eK 


REKKE BYE EREREEEKE 
*A/D VAR RL-CAF4*# 
*#—* —# ~* kk €—4—% 
*MOVE SUBPROGRAM* 
* NAMES TO * 


* DATA VAR ROLL * 
HREEEEKE EERE EE EE 


EEKERCY EEE EEE KEES 
* SAVE DATA VAR * 
*ROLL POINTER AS* 
* POINTER TO * 


: USED LIBRARY : 


AME 
HREEEKE EEK EEE EE 


KKEKEDY ERE EH ERE 
* * 
*SET UP POINTER * 
* TO USED LIB * 
, FUNCTION ROLL : 


KKEKKKEKKKEKEEEEKE 


*eKK 


+ 4% 
Q 
- 

HHH 


* KKK 


RKEKPURRREEREKE 
* * 


ALPHA TO 
: DATA VAR ROLL : 
HERE EREAKEREEES 


*EK*E 
* * 
* Gh +-> 
* * 


kee V 
* 


Gy, 

.* *. 
.* ENTIRE *. YES 
L * 


Py ROL * 
* ,. PROCESSED. * 
*, _* 

*, .® 

* NO 


* 


KEEEE HEE AEKKEEEES 
*MOVE NEXT NAME * 
* (8 BYTES) * 
* TO * 
: DATA VAR ROLL 7 


REKEEKKKEKEKEKREEE 


KEK 


+ % 
Q 
£ 

eee 


*EKE 


Section 2: 


* 
——>* RETURN * 
* fe 


KERKC SHER EEEE KE 
* 


EHKKEKKEEKKEKKE 


Compiler Operation 


TT 


Chart CB. 


G0362 


HEREK AL HERE EEEE 
* PREP EQUIV * 
* AND PRINT * 


* ERRORS * 
HE KEREEEEERERER 


78 


PREPARE EQUIVALENCE DATA 


o*e 
A2 eo 
o* Xe KEKE AZ ERE REREE 
o* *e NO * 
>*# EQUIVALENCE , x———_————->* RETURN 
* * * 
Tapp PATA a HEE HE HEHEHE 
He ok 
* YES 
RHEE | 
* * 
* B2 *#-—> 
* * 
HEHE | 
Vv 


HERHEBD EKER N REESE 
* CALCULATE * 
* OFFSET FOR * 
* EQUIVALENCE * 
* VARIABLE AND * 
* RECORD * 
HREHEEN EE EERE HERE 

| 

| 


* 
* 


v 
o*e 
c2 *, HEHEHE ZH KERHE 
o* He # * 
o* BAD *. YES * * 
*. DEFINITION o* >*RECORD NAME AS * 
He o* * ERROR * 
¥e o* * * 
ke oa HKHEKKKHKKRKEKKEKKEKEE 
\ NO 
ee eee are 
Vv 
o*e 
D2 He 
e* ALL Fe 
e* DATA *. NO 
Re PROCESSED «*#——_ 
He ot { 
Ke e* i 
Re o* Vv 
* YES HEE 
* * 
* BD * 
* * 
HRHK 
{ 
Vv 


HRHKHE DER HERE RHHE 


* 
SET UP * 
HEADING FOR * 
ERROR LIST * 
* 

*% 


HRHEKREKERDKEKKENKEE 


oe ak ok oe 


eeRNS Coes veekSes ek 
PRINT LIST OF 

EQUIVALENCE 

x DEF ERRORS ~» 


* PRINT 


ERROR SYMBOL 


KHEEEHKKEKEE ERE 





| 

{ 

Vv 
HEKEGCSHKEKRERRHEE 


* * 
* RETURN * 
* * 


HEEHHEEKHKKEEKEE 


Chart Cc. 


GO361 


HHA | 
* * 
* BLOCK DATA * 


*PROG ALLOCATION*® 
HERE HERE HEE 





ALLOCATE BLOCK DATA 


HHHEKHEADHEKKKKKHEAE 
#CM ALL/OUT-CIA2* 
%—K%—H—H~ HK — HKR— H— KEK 
>* ALLOC ALL COM * 
¥STRGsPRNT ERRS»* 
*¥MAPS PNCH ESDS * 
HRHKRKRHHKEKRKKKKH HHH 


Vv 
HRHEKKHEGD HHEKEKKHEHHKRHE 


* PUNCH * 
REMAINING 
* ESDS IF ANY * 


KRHKEKHHHKKKREKREK 


| 

Vv 
HHH HH CD HH HI EE 
¥#SCALAR ALL CMA2* 
H— HH HH — HHH 
¥ALLOC SCALARSs * 
* ADD REQUIRED * 
* BASES * 
HEE EMH EH HEH 


< a oe 


HHH HK OD HK IH HH HEH 
*#ARRAY ALL CNA2* 
H— KK — HK — K— HK HH 
*¥ALLOCATE ARRAYS*® 
* AND * 
* REQe BASES * 
HHH HH HE HE HE HE HE 


| 


| 

| 

Vv 
HHHHKE DKK HHH HHEKE 
% % 
* FLIP # 
* EQUIVALENCE ¥* 
* ROLL * 
+ * 
KHHHHHEH HHH HHH HE 


HHHH 
*% * 
* F2 *—>| 
* x | 
HHH Vv 
#36102 o%e 
F2 He 


e* INFO *-e 


e* GROUP ON *.e YES 


%e EQUIVALENCE «%* 
#e ROLL o* 
He o* 

%e ot 

* NO 


x<— 


#36101 o*s 
G2 He 
o* %e 


o*% MORE *%e YES 


#eDATA ON ROLL o* 
He ot 
#6 o* 

* * 
NO 


* x 
| 
| 
| 
| 
| 
{ 
| 
| 
I 
Vv 


HRHKRHHE JOKE KHKHRRKRKHH 


* PRINT * 
BLOCK DATA 
* ERRORS * 


KHEKEKMKKKHE HE 





HHREHKE GHEMEKHEEHEE 


* * 
* RECORD * 
>* NAME + ERROR * 
* TYPE * 
* ea 
KKHEKHHHHKRHHHKEHHRKH 


Vv 
HHH 
%* * 
* FQ * 
* * 
HHEHH HRHEMHE 
* 
>* F2 * 
+ 
HHRKEE 


Vv 
HHHHE 
*O06 * 
* Bak 
* # RELEASE 
* ROLLS 


BECAUSE 

ALL EQUIV 
DATA MUST 

BE IN COMMON 


Section 2: 


Compiler Operation 


719 


Chart CD. 


80 


PREPROCESS DUMMY DIMENSIONS 


G0365 


HEE ND HHH KEKE 
* PREP DMY DIM ¥* 
* AND PRINT * 
* ERRORS * 

HHEKKHK HEHEHE HER 


| 
| 
{ 
| 
| 
i 
| 
Vv 
KHEKEBDKHHKKKH HEHE 


CHECK 
DMY DIMENSION 


* * 
* INITIALIZE * 
* POINTER TO * 
* APPRO ROLL * 
* * 
* * 


HHKKKHAKKKHKKEKH 


HHH | 
* # 
* C2 *-—> 
* * { 
HEEK Vv 
#036601 o%e GO367 o%Xe 
C2 Ke C3 He 
ex Ke o* Hse 
o* ALL *e YES 0% ANY He 
%e ARRAYS o *———————_ > *e GLOBAL 0% 
* PROCESSED .* *e DUMMIES .* 
He o* He o* 
%e ot He o% 
* NO * YES 
| HHH | 
| * x | 
| * D3 *—>| 
I * x | 
iV] HHH Vv 
o%e #36702 o*%e 
D2 %e D3 He 
e* NEXT Be o* Ke 
e*# ARRAY HAVE *e. NO ot END He 
Fe DUMMY «*—— *. OF A DUMMY o* 
* DIMENSIONS -* | Xe LIST o* 
Xe ox j Xe o* 
Ke ot Vv He a * 
* YES HHH H * NO 
* * | 
* GD * | 
* * i 
| HHH | 
v i 
o*e 
Fo Xe HHHHHE BRR EKKEKHERE 
o* *e * CLASSIFY NXT * 
o* ARRAY *#. YES * DMY IF ANY * 
*%¥e A DUMMY OR oe *————_-———->* WITH DMY DIM * 
*#.eINCOMMON .* * PNTR TO ARRAY * 
#e o* * ON ERROR ROLL * 
Xe et HEAKKHKKHKKKHHKHHE 
1 NO i 
i 
| i 
| Vv 
] HERE 
j x * 
Vv * D3 * 
HHHKHKE DEKH HER HE * * 
* * HUE 
* RECORD * 
* ARRAY NAME AS * 
* ERROR * 
% * 
KKM HH HH KH HHH HH HEHRHE 
HEHE | 
* * 
* G2 *-> 
* * | 
HERE | 
#36602 
HHKHHGD HHH KHH HEHE 
¥ * 
* PREPARE * 
*TO PROCESS NEXT* 
* ARRAY * 
* * 


HEKEKHHKKKEKKEKEHE 


| 


| 
Vv 
HHH 
* * 


* CO * 


HHEKK 


He HH 
% * 
* C4 * 
% * 
HHH 
| 
| 
{ 

G0418 Vv 
HEHEHE CG HHH HHH HEH EH 
* * 

> PRINT ERRORS 
* * 


HRKEKKHKHHHKEKKHH 


#36703 
HRKEKRHKDGKKEMKHKHHKKEEK 


* ¥ 
* RECORD MARKER * 
>* ON NAMELIST * 
* JTEMS ROLL * 
* ¥ 

HHHHHHKKKKHHKHHEKHK 


HERE | 
* * 

* E4 ¥->| 
* * | 
HERX Vv 
#36704 o*e 

E4 ¥e 
o* ANY ¥e 


e*MORE ARRAYS*-. NO 


*eWITH DMY DIM .* 
*%. IN THIS .* 
¥eLIST «* 

Re a 

* YES 


! 

| 

| 

Vv 
HHRKEKE GH KHMER EH 
* CHECK DMY DIM *® 
*¥NXT ARRAY-~MUST * 
*3E DMY IN SAME * 
*LIST GR IN COM-* 


* MON RCD ERR'S * 
KEE MKH EK HH EHH KHHE 








HEEK CSM HEH HK HH 


* # 
>* RETURN * 
* * 


HKEKKHMKHKKKKHHEK 


ES ee 
.* He. 

o* MORE He 
>¥e DUMMY o% 
%. LISTS .* 

He eX 
Ke ao ¥ 

* NO 





Chart CE. CHECK FOR UNCLOSED DO LOOPS 


GO371 
HEHE AD HEHEHE KEE 
% PROCESS * 
* DO LOOPS * 
* * 


KEK HKHAKHEHEKEHHE 





] 
) 
Vv 











HHHEHGD HH KHKHHHEK 
* % 
% FLIP THE * 
* DOO LOOPS OPEN * 
* ROLL * 
* % 
Ce ee ee eo 
KEE 
% t 
* C2 #*#—> 
% * 
HEKEH Vv 
#037101 os #037102 
C2 He HHEEKKC FRR KEKREKEHE 
e* DATA *e * * 
e* ON THE *. NO *SET UP HEADING * 
*.00 LOOPS CPEN. *———————>* FOR DO LOOPS * 
*. ROLL 7% * ERROR LIST + 
Ke. aot % * 
He ot KKH MEH KHRKRKEKREKEHH 
* YES 
| 
| 
| 
Vv Vv 
HKRKEEEDD KEKE REKRE KHEKKEED FRKKHHKKKEKEHEKE 
* % 
* MOVE BAD * % PRINT * 
*LABEL TO ERROR * DO ERROR LIST PRINT ERROR LBL 
* LBL ROLL * * * ROLL 
* % 
KHREHKREKKKKEKHKRKEKRKHE KMEREKEHREKHRHEKHHK 
| | 
| | 
| | 
Vv | 
o*e { 
E2 He Vv 
e* UNDE— *e KRHEKE FRAKRHHRHHHE 
e*FINED MARK *. YES * * 
*. ON LBL ROLL e* * RETURN * 
Ke e* | % *% 
eo ox HHEKRKEKHHRMEHRKEHEHK 
es Vv 
* NO HRUHKF 
| * *% 
| * C2 * 
| x % 
HERE 


Vv 
HHH DEH HHH HEHE 
* + 
* SET UNCLOSED * 
*DO MARK IN LBL * 
* ROLL GROUP * 
* * 
HEHE TE HH EE HE HE HE HHH 


Section 2: Compiler Operation 8:1 


Chart CF. 


G0372 


#037201 


82 


HHH AD EH HEK HEE 
*PROCESS LBL AND*® 


* LOCAL SPROG ¥* 
% * 
HH KKH HHH HH HH HHH 


< ee ee SE evr SND 


HHHKHBGD HHEHKHHEHHEHH 


* * 
* FLIP * 
* THE LBL ROLL * 
* *% 
% * 
HHH IH HHH HH HH HH HH HH 


HRHEH | 
# * 
* C2 #—> 
* * 
MHEHH Vv 
o*e 
c2 #. 
o* we 
DATA 
ON THE LBL 
*. ROLL 
Ke 
ee 


o* 
a 


Ke 


* 
% 
* YES 


¢—— 


HHREKHD DHE HHEKRHEHH 


* * 
# MOVE * 
* LABEL TG WORK * 
* ROLL * 
*% % 
*% * 


KEKE KHHHHKKEKH HHH 


* <——— 


E2 
o* 
o* 
¥e 
Ke 
Ke 
Ke 


LABEL 
DEFINED 


e 
Ke 

Ke 

He 
o* 
* 

%* 

o* 


* NO 


< ee ee ee 


HHH HHL DKK HH HEHE 
* CLEAR * 
* FIRST BYTE OF * 
* LABEL iad 
* GROUP-MOVE TO * 
*ERROR LBL ROLL * 
HH EH HH HEH 


THE TAG 
FYELD OF THE 
POINTER STILL 
INDICATES THE 
TYPE OF LABEL 


NO 


YES 


CONSTRUCT BRANCH TABLE 


* 
es 
* 
#037202 
HHHKRHEE ZEKE HH KEE 
* * 
* SET FIRST 172 * 
>* BYTE OF LABEL * 
* GROUP TO ZERO * 
% * 
HHH HH HHH HHH HE 
| 
| 
| 
| 
| 
i 
| 
| 
| 
i 
| 
| 
| 
| 
| 
| 
{ 
| 
l 
Vv 
o%e 
G3 Ke 
e* te, 
o* JUMP *. NO 
*.eTARGET LABEL «*——4 
te e%* | 
%e o* | 
Be ot Vv 
* YES HHH 
HENKE { * 
* # | * KZ 
* H3 #—>| * 
* * HHH 
HHH 
#037203 Vv 
HHHKKHY SEH KK HEHEHE 
*#MAKE NEW BRANCH* 
*% TABLE ROLL % 
* ENTRY AND * 
* RETURN PTR * 
* TO IT * 
HHH EKER K HE 
! 
| 
| 
| 
| 
| 
Vv 
HHH J ZRH KKK KER 
* REPLACE * 
* LABEL GROUP #* 
*¥WITH POINTER TQ* 
* BRANCH TABLE * 
* * 
HK K EHH KKK KH HEHE 
HHKEKE 
* * 
* KZ *-—>| 
* * | 
HHH | 
#037205 Vv 
KEHHKKEK FHKE KHHEKE 
* * 
* MOVE * 
* GROUP TO TEMP *——— 
% ROLL * | 
* * | 
HERE KMKEK REE KKHEKEH Vv 
HHH 
* 
* C2 
* 
HEXE 


ROLL 


KHHRHE 
* * 
*¥ BG * 
ea * 
HRHREH 
| 
| 
#037206 Vv 
HRKEKEGHGHKHHKHHKHKE 
* % 
* COPY % 
* TEMP ROLL TO ¥* 
* LBL ROLL * 
* * 
KMHHRHKKKRHKMEHHHHHHHEK 


Cee eee 


HRHHKKCGHRKHHKHKHEKK 
%& * 
*#SET UP HEADING * 
* FOR UNDEFINED * 
* LABELS * 
* ¥ 
ee ee ee ees 


Vv 
HHKKKEAEO A KRHKEHKKHKHHHKE 
* PRINT * 
UNDEF INED 


* LABEL LIST * 


KHKHHKRHHKKHHHKE 


cir Samegew 


HHKKKE GHKKKKH HHH H 
# * 
* FLIP * 
*THE LOCAL SPROG* 
* ROLL * 
* * 


KKK KKKKRKKKEKKHKEEK 


HHH | 
* * 

* F4 ¥—>| 

Ea x | 
HHH Vv 
#037207 o%e 
F4 ee 

°* DATA 
ON THE 
LOCAL SPROG 
*. ROLL * 

Ke o* 
Be e 


%e 
Ke 
eo * 


e* 
te 


NO 


* 
YES 


<-———— «x 


HHH GE HHH HHH EH 
* * 
* MOVE NEXT * 
* GROUP TO * 
* CENTRAL AREA * 
% * 
HRKE KKK KH KEKE HHEE 


| 
* | 
% 
x | 
Vv 
HREEKHEHA RHKKKHKEHKHE 
*MAKE NEW BRANCH* 
* TABLE RGLL * 
* ENTRY AND * 
* RETURN PTR * 
* TO IT * 
HHH HHMKRMRKKKEHRHHHKHK 
| 
| 
i 
| 
| 
| 
v 
HHH JGKRKEHKEKHKKKEK 
* * 
* PUT POINTER * 
*ON COMMON DATA * 
* TEMP ROLL * 
* & 
HKEKKKKHKHHKKHEKRHRHKKEEHK 
| 
Vv 
HRRHEK 
¥ * 
* F4 * 
* * 
KRHHE 
* 
* 
% 








PRINT ERROR LBL 


ROLL 

#037208 
HHEKKESRKHRKEHHHHEK 
* COPY THE x 


* COMMON DATA * 
>* TEMP ROLL TO ¥* 
*THE LOCAL SPROG* 
* ROLL # 
KEK KKK HK HEHEHE HEH 


| 
| 
| 
| 
| 
Vv 


HHEKCSKHKKHKHKHHKE 
* * 
* RETURN * 
* % 


KKH KKKEEEHHKHHEK 


Chart CG. 


ALLOCATE HEADING AND PUNCH ESD 


GO0374 


HHH AD EHREHERHER 


* BUILD * 
* PROGRAM ESD ¥* 
* * 


RHKNREKMRHRKHHHEER 








Vv 
HERE BD EH HRHHE HHH EN 


* * 
* * 
* INITIALIZE * 
* * 
* * 
* *% 


REREEHRERKERHREEE 


Wa a ee ee 


D2 ke 
«* DATA *e 
e* ON ENTRY *e NO 
Re NAMES o* 
Fe ROLL o* 


* * 


ie 
| 
#037401 Vv 

HHH HE DH HHH HEH 
* * 
*FLIP THE ENTRY * 
*NAMES ROLL AND * 
*MOVE ONE GROUP * 
* OFF * 
HHH HHH HH HHH HHH 


Vv 
HK HHE DEM HHH HEHEHE 
* SAVE * 
*GROUP ON COMMON* 
*NAME TEMP ROLL »* 
* ADD BLANKS TO * 
* NAME * 
HHH HH HK EH EE 


HHEEK 
. 2 * 
* G2 #*#—>| 
* * | 
HHEE { 
#037402 Vv 
HHKEHKEEGO RHEKKHKKHKE 
* * 
* PUT 4 SYMBOL * 
*#IN FIRST BLANK * 
* OF NAME * 
* * 
HHKEKEHEH HEH KHEHEKKHEH 


I 

Vv 
HR HHH D HE HHH HHH 
* * 
* PUT PROGRAM * 
* NAME IN PUNCH * 
* BUFFER * 
* * 
HHH KH KK HH EHH HEE 


Vv 
HKEKKEHK JPKKEKKEKHRKKEKE 


* * 


PUNCH PROGRAM 
* NAME * 


HEKKKHKRKEEK KEKE 





HEHEHE D BER RHE HEE 
* SET UP * 
* PROGRAMMER * 
>*SPECIFIED NAME * 
* IN CENTRAL * 
* * 
HEE KEE KEE KEE EEE 


PUNCH ESD 


PUNCH REMAINING 
ESD 


CARDS 


Vv 
HHE KE BE HH EH EHH HHH 


* * 
* SET * 
* UP FOR LD ESD * 
* * 
* * 
HEE HK KEKE HENREEH 


Vv 
HHKEEEHE CGE HRHHKEKRHEHRKKEEE 


* PUNCH * 
PROGRAM NAME 
* AS LO ESD * 


HKHKKHKHHEEKHEE 


Vv 
HHHEHOG HEE KHEHEHEK 
* ADD * 


* LENGTH OF * 
* INITIAL PROG * 
*CODE TO PROGRAM* 


* BREAK * 
HHH KH HH EH HK HEHEHE 


HEKE | 





* % 
* £4 *—> 
* * 
HH HH Vv 
#037405 o%e 
E4 He 
* He 


e* DATA LEFT *. NO 
%e ON ENTRY o* 
He NAMES 0% 
Ke o* 
kei at 

* YES 





v 
HME HME G HH HHH HHH 
* MOVE GROUP TO * 
* CENTRAL AND * 
* COMMON NAME ¥* 
* TEMP ROLL % 
* *% 
HHHMKMHHHEKEKHHHHRHKHEE 


¢—— 


HHEKKH GG KKH EKEKRHEH HE 
* ADD * 
* BLANKS TO bal 
*NAMEs ADD ENTRY* 
* CODE TO PROG #* 
* BREAK * 
KEE H HHH HH HHH HHH HH 


| 
Vv 


HHH HG HHH HH HHH HH 
PUT 
* ESO IN * 


BUFFER-~PUNCH 
* YF COMPLETE * 


CARD 
Pe ee ee 


Section 2: 


#037406 
KHHHEKESKKEHRKHHKKEE 
* COPY * 


* COMMON NAME # 
>* TEMP ROLL TO ¥#* 
*ENTRY NAME ROLL * 
x % 
HHH HH EH HE HH HE IE 


| 


Vv 
HHHKHHEE SHH HEHE HH HE 


* PUNCH ANY * 
REMAINING ESD 
* CARDS * 


HRHMKEKHHEHRKKKE 


Ce Se ee 


KHHKEGCHHRKKKHHKHE 
* * 
* RETURN * 
* te 


HHKHKHKHHEKHHEK 


Compiler Operation 


83 


Chart CH. 


84 


GO376 


HHKK ADH KHEK HEHE 
* * 
* ENTRY NAME % 
%* ALLOCATION * 

HEKKKK HEHEHE KEE 


k<———- 


Be Ke 
o* Ke 
e* SOURCE eo 
*.eA SUBPROGRAM «* 
%e o* 


o* He 
*¥eA SUBROUTINE « * 
He o* 
%e o% 

He o% 
NO 


—” 


Vv 
HHREEKEAEDPKRHHKKKRKEE 
* * 
* FLIP * 
*THE ENTRY NAMES*® 
* ROLL * 
* * 
HMM MH HH HH HH HH HHH 


KHER 
* * 
* ED ¥-—>| 
* * | 
HERE V 
#037601 °° o%e 
E2 He 
o* ee 


e* DATA ON Ke 


CHECK ASSIGNMENT OF FUNCTION VALUE 


HREHK GARE HHKHHHHE 


NO * * 
——_————->* RETURN * 
* * 


HKHHEHKKHHKEKHHEK 


HMWHHHC DMMB HKHH 


YES % * 
—_———— >* RETURN * 
* * 


KEKE KEHRKEKHRHEE 


NO 


*e THE ENTRY «%*— 


*#NAMES ROLL «* 


Xe ox | 
ee o% Vv 
* YES HHRHK 
| * * 
| * Ba * 
| * * 
KHER 
Vv 
HHMEKHE DKK HRHEK 
* * 
*¥MOVE NEXT GROUP* 
* TO THE COMMON * 
*NAME TEMP ROLL * 
% * HHH 
KEM MK HK HH RHKE * * 
| * G3 * 
| * * 
| HHH 
| 
i | 
Vv i 
o%e #037602 Vv 
G2 He KREHKKG ZH HHH HRKRER 
o* Ke * % 
o* SCALAR *. YES * SET MODE * 
Re WITH SAME oe *¥———————>* OF SCALAR IN * 
Be NAME o* * POINTER * 
He o* * * 
ke ot HHH KKH HEHEHE 
* NO | 
{ I 
| { 
| 
Vv Vv 
HHH HHH D HH HEH HH HEH HK HHH HHH SHH KM HHHHE 


* * 
* REGISTER NAME * 
* OF ENTRY FOR #* 
* ERROR LIST * 
* * 
KEKE HEHEHE KHEEE 


| 
| 
Vv 


HEH HEH SD HERKHEK HEE 
* ADD * 


* SCALAR ROLL * 
*GROUP FOR ENTRY* 
* NAME — DEFINE * 
* * 
HEE HEE HK KEK EH 


* * 
* PUT POINTER * 
*ON COMMON NAME ¥* 
* TEMP ROLL * 
* * 
HEMMER EE HEE 


a 


HEHEHE JAIRKRHKHKKKRKE 
* * 
* ADD SCALAR ¥* 
*TO EQUIVALENCE * 
* 
* 
* 


* ROLL 
* 


KEKKKKHKKHKREKKEE 


HEAK 
* * 


* ED * 


HHH 


#037603 Vv 
HHKKHGHYGMHHKKKKEKE 
* COPY THE * 
* COMMON * 
*NAME TEMP ROLL * 
* TO THE ENTRY * 
* NAMES ROLL * 
HHEKKHKKNKHHHKEKHREKRH 


| 
| 


Vv 
KHER H CG EH RE HHH 


* * 
* PUT A MARKER * 
* SYMBOL ON * 
* EQUIVALENCE * 
* ROLL * 
HERR HHEK HH HK EE 


Vv 
HHHKRHEDGHKEHKHHMREKE 
* * 
*SET UP HEADING * 
* FOR FUNCTION * 
* ERROR LIST * 
* * 
HARK KRMREKHHHHHRHHHHEHK 


ee 


HKKKKKE ARKH EKK HEHEHE 
* PRINT * 
FUNCTION 


* ERROR LIST # 


HRHKMEKEEKKKHE 


| 
| 


| 

| 

Vv 
HEHKEGHHKHEHKHEK 


* * 
* RETURN * 
* * 


MRK HKKK EE KEE 


ALL ENTRY NAMES 
TO A FUNCTION 
ARE 
EQUIVALENCED 


PRINT 
ERROR SYMBOL 
ROLL 


Chart CI. 


ALREADY ON 
COMMON 
ALLOCATION 
ROLL INDICATES 
THIS 


COMMON ALLOCATION 


GO377 
HHEK AD MEKKEEHHKE 
* COMMON * 
* ALLOCATION * 
* AND OUTPUT * 


MHNRHRKRHKMHHRHHH RHEE 

| 

| 

| 

Vv 
HHEKEBLOKRKRHKKEEHRHEEE 
* + 
* INITIALIZE * 
* FOR COMMON * 
* ALLOCATION * 
* % 
* * 


HRMRHMHKEKHKKHHHKEE 


| 
Vv 
* 


o%. #037709 
C2 ke KHKERCAFHHHKRHRKHHEKE 
* He * CLEAR * 
-* ANY ¥. NO * CONTROLS AND * 
*. BLOCK NAMES .*————————>* ROLLS FOR * 
*. ON ROLL o* * ALLOCATION * 
¥e o* x GF COMMON * 
He e* HHMHMHHKKRHH HME HEHE 
* YES | 
| | 
{ | 
| 
| 
Vv | 
RHEE OHD HHEEKEKKHEE Vv 


* 
* MOVE NEXT 


* HHKED FH EHH HEHEHE H 

% * 
*NAME TO COMMON * * 

* * 

* 

* 


* 

RE TURN % 

* 

ee ee eS 


* AREA ROLL 
* 


KEKE HE HEHEHE E 





HEHE | HHH 
% * * *% 
*# EQ ¥*-—> * €3 *#— 
* * | * * 
HHH Vv HHEK Vv 
#037701 o%e #037705 aX, 
E2 Ke E3 Fe 
e* Ke o* Xe 
o* END OF *%e YES o* MORE *¥e NO 
%e DATA FOR e *———__-————>*. BLOCK NAMES .* 
Ke BLOCK o* *. ON ROLL -* | 
Ke o* . ot | 
Fe oo % Ke a% Vv 
* NO * YES HH HH 
| | * 
| | * B4 
1 | * 
| | HHH 
Vv Vv 
o*., o*e 
F2 Xe F3 ¥e 
e* Ke o*® NEXT Be 
o* NEXT *. NO e* NAME SAME *e YES 
*. VARIABLE IN e* #%eAS LAST NAME 2«*—-— 
*¥. ANOTHER .* * e-ALLOCATED.* { 
*.BLOCK « * He o* | 
Ke o% Re o* Vv 
* YES * NO HHH 
| * 
| * E2 
{ * 
| { HHH HE 
l 
Vv #037703 Vv 


HHH HH GD HK HH HEHEHE KE HHKHHKG ZEKE HHH KH 


*% * * * 
* RECORD * * COPY BLOCK * 
*NAME AS COMMON * * NAME AND DATA * 
* ERROR * * TO TEMP ROLL * 
* . 7 * * 
Se ee HHH HRKEHEHKHHRHKHHEHRE 


ieee A ea nee el) 


| <——__—-] | 


Vv 
HHH 
* * 
#037702 Vv * ES: * 
HHH KKH D HH HHH HH EH * * 
* ALLOCATE * HHEK 


* STORAGE FOR * 
* VARIABLEs RE- * 
* CORD ON GEN‘fL * 
*ALLOCATION ROLL* 
HEME KM HK EH HHERH 


#037706 v 
HHEHKGG HHHHHHHH EH 
* 
*COPY ALL BLGCK 
*NAMES AND DATA 
*BACK FROM TEMP 
* ROLLS 
MHHMMRHHHRHKRHK RHE 


* 
* 
* 
* 
* 
* 


| 

y 

Vv 
HHH HKKCG EH HKEHEHHER 
* ALLOCATE ALL * 
® EQUIVALENCE) ¥* 
*DATA REFERRING * 
* TO COMMON * 
# BLOCK * 
HHH EME HHH HEHE HH HEH 


| 

| 

#037711 Vv 
HEHEHE HHO G HH KEKE HHH HH 


* PUNCH # 
ESD CARD FOR 
* BLOCK # 


HKEKHHRHRK HEHEHE 


*C— 


* kK 


HEREKHHEE GA HHHHKHKHKHHE 


* PRINT * 
HEADING FOR 
*MAP OF BLOCK * 


KHHRHKKHKHHKHKHE 

{ 

- | 
* i 


Vv 
HRHEHEHGCGHRHHKEKAKEKRE 
* COPY GENtL * 
* ALLOCATION * 
*ROLL TO COMMON * 
* 
% 
* 


<—_ 
ee ee ee. 


* ALLOCATION 
* ROLL 
HEHEHE KK HEE KHER 
| 
i 
| 


| 
Vv 


HKHEHKHHHG RHHRKHKERHHE 
* * 
PRINT MAP 
* * 


HRHRHKMRMHRKRHHMHEHHE 


Ce tee 


HEHEHE IG HEH K HHH HE 
* PRINT * 
ERRORS FOR 
* BLOCK * 


HHHRKKEKKMKHKKE 


| 
| 
{ 
Vv 
HHHEKG UH KHH HEHE 
* COMMON * 


# ALLOCATION AND * 


* OUTPUT * 
HEM KHHK HHH EEE 


Section 2: 


RETURN TO 
PROCESS NEXT 
COMMON BLOCK 


Compiler Operation 


85 





Chart CK. 


EQUIV 
ALLOCATION 


INTEGRATE 


PRESENCE ON 
GENL ALLOC 
ROLL INDICATES 
THIS 


86 


EQUIVALENCE DATA ALLOCATION 


GO381 
HHH H A ZH KE KE HHEK 
HHEKAD HH HEHEHE * CLEAR % 
* EQUIV. * % OBJECT * 
* ALLOCATION maar? ol MODULE * 
* PRINT ERROR * * LOCATION * 
RHEE KH HH HHH HEE * COUNTER * 
HHH HEHEHE HHH HE HH 
HHH | 
* * | 
* B2 *—+ | 
* * I< 
HUN Vv 
G0382 oe 
B2 Fe 
e* DATA *#e 
ot ON *e NO 


‘ce EQUIVALENCE 2. *—— 
%e ROLL o* | 


<—— 


HKEKH CD HK RK HHH HH 
* FLIP * 
* EQUIVALENCE * 
* ROLL AND x 
* INITIALIZE = 
* * 
HERKEN HHH HH HH 


HEEK 
* * 
* D2 *—>| 
* * | 
HKKEE Vv 
#038501 o%, 
D2 *e 
-* *e 
-* DATA *. NO 
*.TO PROCESS ONe*——4 
*#. ROLL o* | 


He o* | 
Ke o% Vv 
* YES HHH 
! *% * 
| * Ba * 
{ * x 
| HUE 
Vv 
e*%e eo*s 
E2 He E3 %e 
e* He * He 


°* CONFLICT *. NO 
>* eWITH PRESENT e*-———4 


2% ENTRY *#. YES 
eo ALLOCATED aa 
*. BEFORE o* Xe SET o% 


He eX* Be * 
Xe oo ke of | 
* NO * YES 
| | 
| | 
| | 
#038503 Vv Vv 
HHHKEFDKRHKKKKRHHERE HREKHKP JRHKHKRKKKE 


* ALLOCATE * * * 
* ABSOLUTE ADDR * * RECORD # 
%* RECORD ON GEN * *NAME FOR ERROR * 
* ALLOC ROLL * * LIST * 
* * * * 

* 


MRKEHEHRKAHMREKRKHKHHEE KRHKKKKRHAKKKHKEHKKH 


eae in ce OR ee Pe I ne AE RE Aen He 


G0384 


| 
{ 
{<——_—___—“ 
| 
\ | 
v #38902 
KHHEHKEGORRKKHKRHKEE HKHHKHGBZHEKHKRKRKKKRHEK 
* * * % 
* INCREMENT * CT PRUNE * 
*PTR TO GET NEXT* *¥ENTRY FROM WORK* 
* GROUP * * * 
* * * * 


Ce ee ee ee ee ee 


KEKKHHEKEHHKEK KEK HE 


Vv Vv 
HHH HHH 
* * * * 
* D2 * * D2 * 
* * * % 
HHH HHKE 


HHKRKEGSE HHHKHKHKHKRKKEE 
* ALLOCATE ALL * 
* SETS WITH * 
*#NAMES LISTED ON* 
*GEN ALLOCeROLL * 
* + MOVE INFG * 
HHHHKKHEKKHEKHKHHKH 


eT es RS SN SD ee A OS OE TS SD EY SS ce SS 


See 


HHKHKE GKHKKHHKKKKEEK 
ca * 
* INCREMENT * 
*PROJECT MGDULE * 
* 
* 
*& 


* PROGRAM BREAK 
* 


HHKKRRKKKHHEKRKHKRKRHEH 


| 


Set em ees 


HHKHKE GHKKRREHEHE 
* % 
*COPY INFO GENL ¥* 
* ALLOC ROLL TO * 
* 
* 
* 


* . SOURCE ROLL 
* 


HEKKKEKHHKKHEEEEK 


<n 


HRKHKEGG HK HK HK REKE 
*# MAKE FINAL * 
*ALLOC AND MOVE * 
* INFO TO EQUIV * 
*ALLOC ROLL FROM* 


* GEN ALLOC * 
HHH KHER HEHE 


HEHE 


* CS * 
+ * 
HH HH 


| 
| 
| 


Vv 
HHKKA CHR HKKH KK HKE 
* SAVE LOCATION * 
* CNTR AS FIRST ¥* 
* ADDRESS AFTER * 
* EQUIV DATA * 
% + 
MEK EK KKH HEHEHE KEKE 


Se ae ae 


HRHHKKEKOS HH KH KE KEN H 


* PRINT * 
EQUIV 
* ERRORS * 


HEKKKKKKHHKMRKREE 


< ate a er em gas Re 


KEHKESLKHKHKKHHHHKE 
* * 
* RETURN * 
* * 

KHRHEKKHHHRHHRHKHH 


Chart CL. SAVE AREA, BASE AND BRANCH TABLE ALLOCATION 


G0437 


ERNE ADEE EEKEEEE 
* BASE AND * 
* BRANCH TABLE * 


* ALLOCATION * 
HERR EK EH EEE EEE 





| 

| 

Vv 
HHERERB DEH EERE KEEN 
*SAVE BASE TBLe * 
* PTR AND * 
* DISPLACEMENT * 
* FOR START OF ¥* 
* 
* 


* SAVE AREA 
HHH HEHEHE HEHE 


| 
| 
| 


Vv 

HHREEHCDKEEKEKEHKHEE THIS VARIABLE 

* * IS USED 

* INCREASE * TO HOLD OBJECT 

* PROGRAM BREAK * MODULE ADDRESSES 
* BY SAVE AREA * BEING ALLOC. 

* SIZE * 


KHREGE KEK KEKE HEHHHEE 








Vv 
HERERO D HEHE KEE 
* SAVE BASE TBL * 
*PTR AND DISPLA-* 
* CEMENT FOR * 
* START OF BASE * 
* TABLE * 
HEHEHE KEE HEE HEE 


Vv 
HHH HEE DREHER EEE 
* * 
* INCREASE * 


* PROGRAM BREAK * 
* BY BASE TABLE * 
* SIZE * 
HH KK EEE KH HEE HEHE 


Vv 
HHHEHKE DEKKER ERE 
* * BUILD 
* CONSTRUCT * ADDITIONAL 
* REQUIRED BASE * BASES 
* TABLE ENTRIES * 
* * 


KREEKRKHEEEHHEEERAKE 


Vv 
HHEHHGD HHH EH HEHE 
* SAVE BASE TBL * 
*PTR DISPLACEMT * 
* FOR START OF ¥* 
* BRANCH TABLE * 
* * 
HE HE EEE EE EH 








Vv 
HEKHEHD HE EHEK HEHE 
*INCREASE PROGe * 
* BREAK BY * 
* SIZE BRANCH * 
*TABLE AND MAKE * : 


* LABEL ENTRIES * 
HRHRKKHEEEEELHEKEREE 


Vv 
HHREKRN SO KEKKEKHKKEKE 
* * BUILD 
* CONSTRUCT * ADDITIONAL 
* REQUIRED BASE * BASES 
* TABLE ENTRIES * 
* * 


HEKRKEKREKKKEEKKKEE 


Vv 
HEEKKDRHKRER ENE 
* 
* RETURN * 
* * 
HEHEHE HEHE HHH 


Section 2: Compiler Operation 8:7 


Chart CM. 


G0397 


HRKH A] RHKHKEEEE 
* * 
*¥SCALAR ALLOCATE* 
* * 


HREKEEEEKEEHKEEE 


NOTE 1- 

THESE QUESTIONS 
SEPARATE 8 AND 
16 BYTE 
VARIABLES 


88 


ALLOCATE SCALARS 


HEE AD EH HHH HERE 
* * 
* * 
>* INITIALIZE ¥* 
* % 
* * 
HEHEHE E KHER 


HRT 
* * 
* D2 * 
* * 
HEHE 
| 
#039707 v 
HKEHERODDKHEKKEEEKKHE 
* * 
* SET * 
* MODE OF NEXT * 
* SCALAR * 
* * 
HREKKHHHHEHEHEEHEKKH 


| 


| 
Vv 


e*SEE NOTE 1 
E2 ee 
o* %e 
o*% He 
*eCOMPLEX MODE .* 
Ke e* 
Ke o* 
Fe ec 


* 
Vv 
e*SEE NOTE 1 


F2 te 
o* %e 


YES 


* 
NO 


e* DOUBLE #e 


A 
| 
| 
| 
| 
| 
| 


YES | 
*. PRECISION .* 


*%-e MODE o% 
Re o* 
He o® 

* NO 


o* He 
*eSHORT INTEGER.* 
* * 


ad e 


YES 


H2 %e 
o* He 
o* *. YES 
*eSHORT LOGICAL.* 
He ot 
Ke e* 
Ke ao & 
* NO 
HEHE 
* * 
* J2 *->| 
* * 
HEHE | 
#039708 v 
HEKKE JDERHEEKHEKE 
* * 
* MOVE GROUP TO * 
* FULL WORD * 
* SCALAR ROLL ¥* 
* * 
HKRHREHKKHHHKHEEEKHEKE 


HREK 
* * 
* K2 #—> 
* * 

HHH 1 

#039705 Vv 
HH HHH DH HERE HEE 
* * 
* PREPARE * 
*TO PROCESS NEXT* 
* SCALAR * 
* * 


HKRKKHKERERKHKEEEKRE 


HEEE 
* * 


* AS * 
* 


HH 


HEHE 
& * 
* AB * 
* * 
HHHRE 
| 
| 
7 
#039701 eke 
AZ He 
o* He 
o* ALL ¥. 
>*e SCALARS * 
# e PROCESSED e* 
He o* 
Ke of 
* YES 
| 
#039706 VSEE NOTE 
HHEKRKEC ZFHEHRKKEEHHENE 
*% * 


* ALLOCATE FULL * 
* WORD SCALARS~— * 
*RECORD AND MAP ¥* 
* * 

* 


HKHHREKHRKHKKKKEHHKEKE 


#039704 SEE NOTE 
HKHHHKKE SRHHKKHHHEKRE 
% 
* ALLOCATE * 
>* STORAGE AND * 
* RECORDs PRINT * 
* 
* 


* 


* MAP 
HEH HHK HHH HHH HE KH 


Vv 
HERE 
* * 
* K2 * 
* * 
HHH 
#039703 
HHHHHG ZEKE HH HK EH 
% * 


* MOVE GROUP TO 
>* HALF WORD 


* SCALAR ROLL 
* 


x 
* 

* | 
* I 


HEHE HMHEKHE HHH HHH HH Vv 
HKHEE 
* 
* K2 
* 
HEE 
#039702 
HRHEKKEKHGHKRKHKEKKKEKE 
* * 
* MOVE GROUP * 
>*TO BYTE SCALAR *-———y 
* ROLL * 
*% * 
HRHEHHKEKHKHKHHKHHKEKRE Vv 
HRHHM 
* 
* K2 
* 
HHEEE 


kk 


ok 


o* A *. NO 
>%*eDUMMY SCALAR e«* 
Ke o*% 
He o* 
*s <«* 
* YES 


HHKKKCERKEN KE HHEE 
* * 
* ALLOCATE HALF * 
>* WORD SCALARS— ¥*— 
*RECORD AND MAP * 
* 


HHKKHKEHKHKEH EH RKEE 


NOTE 2- 

IF OURING PASS 1, 
NO MAP IS PRINTED 
AND ALLOCATION IS 
NOT RECGRDED FOR 

COMMON AND EQUI- 

VALENCE SCALARS» 

INFO IS PICKED UP 
FROM OTHER ROLLS 


Re e* 


KHRE 


SEE NOTE 
HHKKECSHHMKKRE HEE 


* * 

* ALLOCATE * 
—>* BYTE SCALARS-— * 
*#*RECORD AND MAP # 

* * 

* 


KKK KKHEREEKHEKHK 


| 


| 

| 

| 

1 

Vv 

HHEEEOS RHE RKHKKE 

* * 
* RETURN * 
* 


*% 
HHEKKKHKRHKKKHKHHE 


Chart CN, 


ALLOCATE ARRAYS 


GO401 


HEHE AD HHH EHH 
* ARRAY * 
* ALLOCATE * 
* * 


HREKEKKEKERKREKHEHEE 


Vv 
HRNRHKHRBD HHH EEK 


* * 
* * 
* INITIALIZE * 
* * 
* * 
* * 


RRR HEEEHEHHKE HEHE 


RRR 
* * 
* C2 *—> 
% * 
HUH Vv 


#040101 o*e 


C2 He 
o* He 
o* ALL ¥. 
He ARRAYS o* 
*.PROCESSEDe* 
He e* 
He a 
* NO 


Vv 
oe 
D2 Ke 
o* NEXT *.e 
e* ARRAY IN ¥*e 


YE 


YE 


ec 
~~ 


Ss 


#eCOMMON EQUIV. e*#——y 


*.OR DUMMY .* 
He o* 
He o% 

* NO 


Vv 
HH NEED HH HH EEE 
* * 
* ALLOCATE * 
* STORAGE AND * 


*RECORD LOCATION* 
* * 


eo ee 


Vv 
HEHE DE HE KEK 
* ENTER * 
* INFO IN ARRAY * 
* MAPs PRINT * 


* COMPLETE LINE * 
* * 


REEKEKKEKEHRKE HEHEHE 


| 
| 
| 


Vv 
HEREC HEHEHE RHEE 
* * 
* CALCULATE AND * 
*RECORD BASE PTR* 
*# AND DISPLMYT IN * 


* CENTRAL * 
HHH EEE EE EK 


HH 
* H2 *-> 


HEHE Vv 


#040102 o*e 


Re PASS 1 o* 
He * 
%e o* 


Vv 
HKHEEKEK JD KKKKKEEKEE 
* * 
* *% 
* REPLACE GROUP * 
* ON ROLL * 
* * 
HRHKREHHRKEKE HH RE HEHEHE KE 


RHE | 
* * 
* K2 #—> 
* * 
HHHH | 


#040103 Vv 


HHRKEKEEK DKEKHHEEHEE 
* * 


* PREPARE * 


Vv 
HEHE 


#40104 


* 


* H2 * 


RHEE 


*TO PROCESS NEXT*#——4 


* ARRAY * 
* * 
HEHEHE HEHEHE E EEE 


* Ok 


| 

{ 

Vv 
RHRE 


c2 


HEHE 


* 


* OK 


HHH HHH ZH HEH HHH 


> 


¥ 


* 


PRINT 
ANY PARTIAL 
LINE 


HHKHREKRRHE HEHEHE 


* 


5 


* 
>* 
* 


HEHE CL ERE EH HEH 


t 
RETURN * 
* 


HREM EHRHEKH RHEE 


Section 2: 


Compiler Operation 


89 


Chart Co. 


90 


G0402 


HRHEHHEAPDKHHKHKHKHEHKEK 


* PASS 1 GLOBAL * 


*SPROG ALLOCATE * 
* % 


HHREKKKKHKKHKKEE 


| 
| 
| 


HRHHHGYD HMMM H KKK HK 
% 


: * 
* ALIGN TO % 
* FULL WORD * 
% BOUNDARY * 
*% * 
* % 


HMRHEKKHHKEKKHAHHEKE 


Vv 
HHEKKHCDEKKKHHE KKH 
*DETERMINE BASE * 
* PTR AND % 
* DISPLACEMENT #* 


*FOR PRESENT LOC#* 
* * 


HKHEHKEMHKKKHKKHHKKKESR 


< CS cape SEES pe ME 


KRHEKHDDKRKHHKKHHHKHE 
* COMPUTE * 
* LENGTH OF * 
* OBJECT MODULE * 
*SUBPROGRAM ADR ¥* 
* * 

*% 


HRHKEHKHHEKKKHKHRKEE 


HHHKHE DHH KH H KEE 


®COMPUTE LENGTH * 
* OF OBJECT * 





* MODULE * 
* SUBPROGRAM * 
* ADDR * 


HREEKHEKEKKKRHEKHKHH HK 


I 

| 

| 

Vv 
HHH DKK HRKRHEK 


* * 
* RETURN * 
* * 


HRHKHHKHKKKHKEKHHKKE 


ADD BASES FOR SUBPROGRAM ADDRESSES 


BUILD 
ADDITIONAL 
BASES 


Chart CP. 


G0442 


HHH ADHERE 
* SPROG ARGe * 
* ALLOCATION * 
* * 


KHKEKKHKKEKKRHEEEREE 


k<——— 


e e 
B2 He 
o* * 


0% ZERO *e YES 


%e ARGUMENTS) o* 
He * 
He * 

He 


*% 
| 


| 


Vv 
HEHEHE DEH EEEH RHEE 


* 
NO 


* * 
* ALIGN TO A * 
* FULL WORD * 
* BOUNDARY * 
* * 
HHH HEHEHE HEHE HEHEHE 


| 
| 


| 

Vv 
HHHHHOD HHH HH HEHEHE 
* DETERMINE AND * 
* SAVE BASE PTR * 
* AND ODOISPLACE- * 
*MENT FOR START * 
* OF ARGUMENTS * 
HHH HHH HHH HHH HH HH 


Vv 
HHHERE DEH HHH EHER 
* INCREASE * 
* PROGRAM BREAK * 
* BY SIZE OF * 
*ARGUMENT LISTS * 
* % 
HHH HHH HEH HHH 


Vv 
HHEHHKE DHMH KEE 
* * 
% CONSTRUCT * 
* REQUIRED BASE * 


* TABLE ENTRIES * 
* * 
HHH HHH HEH HH HHH 


| 
| 


Vv 
HHEHKGD HH MKEHH HEE 


* # 
* RETURN * 
* * 


KEKKEKHKKEKKKHEKER 


« 


% 
>* 
*% 


ALLOCATE SUBPROGRAM ARGUMENT LISTS 


KHKEXHZRHHKKHHHKE 


RETURN 


HEHEHE HHKM HEHEHE HE 


* 
* 
% 


Section 2: 


Compiler Operation 
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Chart CQ. 


92 


PREPARE NAMELIST TABLES 


G0443 
HERE AD HERKEN 
*% 
# PREP * 
* NAMEL IST * 


HERRERA EEEHEE 





Vv 
HRKEEB DEH HEREKERE 
* * 
* FLIP NAMELIST * 
* NAMES AND * 
*®#NAMELIST ITEMS * 


* ROLLS * 
HK HHH EEE EEE 


HHEKE 
* * 
* C2 *—> 
* * 
HHH Vv 
#044301 o%e 
Re 
o* He 
o* DATA He 
*#.ON THE NAMES o* 
*. ROLL o* 
He o* 
He of 
* YES 


Vv 
HHH HHO DH HHH HH 


* * 
* ALLIGN TO * 
* FULL wORD * 
* BOUNDARY * 
* * 
* * 


KEKKEKEKEKKRKERE 


Vv 
HHKHRED HH KHRHHEEER 
* MOVE 


* 
*NAMELIST NAMES * 
* ROLL GROUP TO * 
* COMMON DATA * 
¥* 
* 


* TEMP ROLL 
HER KK EKER EE EER 





v 
HEHEHE DKEKRHKKRKRKRHEKEE 
*DETERMINE BASE * 
* POINTER AND * 
* DISPLACEMENT ¥* 
* FOR PRESENT ¥* 
* LOCATION * 
KHHREKRHRKHHREHFRHKRKRKKE 

| 

| 


Vv 
HRHKKKGDHKKRRKR HEHEHE 
* * 
* INCREASE * 
* PROGRAM BREAK * 
*BY 16 PUT ZERO * 

* 
* 


* ON WORK 
HHH EEK RHEE EEE 


| 
HHHK Vv 
#044302 o* 


o* DATA eo 
*%.ON THE ITEMS «* 
Fe ROLL o* 
He * 

%e ot 

* YES 


xc 


e e 
J2 Ke 
* * 


NO 


NO 


e 
e* ALREADY *.e YES 


Be DEFINED e *¥——_ 
He o* | 
He e* | 
Be o* Vv 
* NO HHKEK 
| * 
1 * B4 
t * 
{ HHEK 
| 
Vv 
HRHEHKK DEKKER EE 
* *% 
* REGISTER * 
* VARIABLE AS A *--— 
* SCALAR * | 
* * | 
KEKE KHHN HHH HH EE Vv 
HHH 
* 
* BS 
* 


MERE 


#044307 
KHRKEKKCZHHEEERKHHEKRE 
* COPY THE * 
* COMMON DATA ¥* 
>* TEMP ROLL TO ¥* 
*NAMELIST NAMES * 
* ROLL * 
KREEHKKEKKRKEKKEKRKEHRKRE 


| 
| 


<< 


HHHED ZRH HHE HEHE 
* ; * 
* RETURN * 
+ * 


HRKEKKKHEEKREKKHKEKE 


#044306 
HHH HEH 
* MOVE MARKER ¥* 
* SYMBOL TO * 
>* NAMELIST * 
* ALLOCATION * 
* ROLL * 
HEHEHE HEH HEHEHE EHH HE 


< ee oe 


HEHE H JZ HHHHEHEHEE RHE 
* * 
* INCREASE * 
* PROGRAM BREAK * 
* BY ENTRY SIZE * 


* GN WORK * 
HHH HHH HH HHH HHH HEH 


| 
* | 
* | 
* Vv 
HHH 
* * 
* C2 * 
% * 
HHH 
* 
* 
* 


HHH 
* * 
* B4 * 
# * 
HHEK 
| 
| 
Vv 
#044303 o*. 
B4 Ke 
o* ¥e 
o* *.e YES 
*-e A SCALAR ot 
ke o* { 
He o* | 
ee o% Vv 
* NO KHER 
* * 
* DS * 
* * 
HH HER 
Vv 
o*e #044304 
C4 *e HHEEKE CSE RKHEKHE HEE 
o% He *¥ DETERMINE * 
o* *%e YES * NUMBER OF * 
*e AN ARRAY o *——————- > *DIMENSIONS FGR * 
Fe o* * SIZE OF TABLE * 
%e o® * ENTRY * 
He o% KHKEKKKEEKEERERNKEE 
* NO 
{ HEHE 
* * 
| * DS *—>| 
| * * { 
HEHEHE | 
Vv #044305 Vv 
HHKKHE DG EK HEH KK REE HRHKER OSH HHHE EHH 
* * * * 
*RECORD VARIABLE* * ADD 12 TO * 
* NAME AS * * SIZE OF ENTRY * 
*NAMELIST ERROR * * ON WORK * 
* * * * 
ERR KHER HR HEK EEE KKK HEE EK RE HE HEE 


<form 


HRKRKES HK HHH HEE 
* MOVE NAMELIST * 
* ITEMS ROLL * 
* GROUP TO * 
* NAMELIST * 
* ALLOCATION ROLL* 
KHREK KKK ER MKHEHREE 


Vv 
HHH 


* HD * 


KHER 


Chart CR. ALLOCATE LITERAL CONSTANTS 


G0444 


HHEKADHNREKRMRHEKER 
*#LITERAL CONST. * 
* ALLOCATION * 

* 





* 
Pee ee ee ee Se HH HE 
* * 
| * Ba * 
* * 
| HRKE 
| 
Vv Vv 
HRHNEEBG EKKHMEHEEE HRKEKK GG MEME HEE R HEHE 
* * MOVE LITERAL 
* INITIALIZE * *TO OUTPUT AREA * 
*®PTRS TO LITERAL*® PUNCH IF CARD 
* CONST ROLL * * CORRECT * 
* * 
REEL EERE KE REEE HEHE EH KE KEHE 
RHEE | | 
* * 
* C2 *#-> 
* * 
HHH V | 
#044401 o*e. Vv 
C2 He HEH KHECE RHEE KH HEKH 
THE PRESENT o* Re * PUT BASE PTR * 
POINTER IS o* ALL *%e YES * AND * 
COMPARED TO He CONSTANTS o* *DISPLACEMENT ON* 
A POINTER TO *.PROCESSED.* | * LITERAL CONST * 
A NEW GROUP *e o* * ROLL * 
He ot Vv HH KH EH HH HEHE 
* NO HEE 
1 * * 
* E€4 * | 
* % Vv 
HREK HEKE 
* * 
Vv * C2 * 
HEREEODHHRKEKHEERE * % 
* * HH EH 


* COMPUTE AND * 
* SAVE PTR FOR * 
* NEXT GROUP ON * 
# ROLL * RHEE 











KREGER HRHRM RHEE HHH * * 
| * E4 * 
* % 
EHREE 
| i 
I 
Vv 
oe #044404 Vv 
E2 He HHH HHE GH HH HEHEHE 
e* PAUSE *. HEME % * 
e* OR DATA *e YES * * * THROW * 
*#.STMT LITERAL «* >* C2 * * AWAY OLO * 
He o* * * * POINTERS * 
He e* HR * * 
He ot MEME HRKKEEHEKEKKEKRHHEE 
* NO 
Vv 
Vv ote 
HRKERE DEERE KHERHEHE F4 Ke 
* * o* ee HEHE ESHER EHEEH 
* INCREASE * o* *%. YES * * 
* PROGRAM BREAK * %e PASS 1 oe *———————— > ¥ RETURN * 
*BY NOs BYTES IN* He o* * * 
* PLEX + Re o* HHH HHH HHH EHH HH 
MRHERMHEGEHHH ERB EEE Ke oo % 
* NO 
| 
| 
| 
Vv Vv 
HRHHEERGOCHKEHEREKEKHHEE KHRKEHKEHCGE HHRKEHKHKHEKRE 
*DETERMINE BASE * 
* PTR AND * * PUNCH * PUNCH 
* DISPLACEMENT * ANY PARTIAL REMAINING 
* FOR PRESENT ¥* * CARD * TXT CARD 
* LOCATION * 
HEREC HKEHRKKEHE HRKEKEKEKKHKKKHK 
| | 
| 
| 
| 
Vv 
o*. t 
H2 %e Vv 
e* Re HHREHHGHHHEKRENKRHEE 
a* *,. NG * * 
He PASS 1 -*——, * RETURN * 
Re o* 1 * * 
te o* { HRHKMRHEKHKHHRHHRKRKMHHK 
%. .% Vv 
* YES RRKKE 
* * 
* BG * 
* * 
HHH 
{ 
#044402 Vv 


HREHE ID EH HEKE REE 
*THROW AWAY BASE* 
* PTR DISPLMT * 
*  ANO PTRS TO #* 


* THIS LITERAL * 
* * 


HREEEKERKKHHEREREEE 


HEE 
* * 


* C2 * 


HERE 
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Chart CS. 


BUILO FORMATS 


94 


ALLOCATE FORMATS 


GO0445 


HHKEEADKHHEKHKKKHHHK 


* * 
* FORMAT * 
* ALLOCATION * 
HEKHKMHEHHKKRKHKKH 


<¢——— 


HKRKKEBPOKRHHKKHKHKNE 


* * 
# SET * 
* POINTER TO * 
* FORMAT ROLL * 
* * 
* * 


HRKKKKRKKEHHHHHHKE 


HHEH | 
* * | 
* C2 *—> 
* # | 

HHH Vv 

#44601 ok, 
c2 He 
o* Re 

o* DATA . 

*. TO PROCESS .* 
Re 


Vv 
HHH DOD DEH KEK HEHE 
* COMPUTE AND * 
* SAVE POINTER * 
* TO NEXT * 
* FORMAT * 
* GROUP * 
HHH MEHR KEKE 


<—— 


HHHKKED KH REE KER 
* INCREASE * 
* PROGRAM * 
* BREAK BY * 


*NUMBER OF BYTES* 
* IN FORMAT * 
MRK EHH KKH KEE 


~F2 %e 
o* Ke 
* #. YES 
¥e PASS 1 o* 
He eX 
ke o* 
Hee a & 
* NO 
| * 
* 
| x 
| 
#44602 v 


HHHEEHGQHE KKK HEHEHE 
MOVE FORMAT 
* TO OUTPUT * 
AREA PUNCH 
* IF CARD * 


COMPLETE 
HEKRHKH KE EHHE EK 


NO 





ed 


oX*e 


C3 He 
* He 


0% PASS %e YES 
>*e 1 OPERATION gee 


° 
He ot 
Ke 
Ke 


o* 
+ 
NO 
* * 
* D3 ¥*—> 
* * 
HRHHH V 
#044501 o*s 
D3 
aX 
°* FORMAT 
%. TO PROCESS 
He 
He 
Re 


* 
HEHE | 
| 
i 


Ke 
He 
*%. NO 
o *¥— 
o* 
e* 
o* 
* YES 


re 


HHMHEE SHH EK RHEE EH 
% # 
* OBTAIN * 
*NUMBER OF WORDS* 
* FOR FORMAT * 
% * 
HERE KKE EHR HKEEE 


Cee 


HKHEKREKF FRHEKEKRHEKHHE 
#CALCULATE BASE * 
* AND * 
* DISPLACEMENT ¥* 
* FOR FORMAT * 
* % 
HHH HRHHMRHMKHKHHHRMHEKE 


g—=—— 


KHHKKEGAIMKRMHHHEHRKHEHH 
*% * 
* REBUILD * 
* FORMAT ROLL ¥* 
*WITH BASE PNTR * 
* * 

* 


HEE HHEKK HEE HHH HH 


Vv 
HHEKMKH GREK HMHRRMHKH 


* PRINT FORMAT * 
MAP» IF 
* OPTION * 
SPECIFIED 
HH EHH HH HH HHH K 


>* 


#44502 


HHKEKKGSGKHKKKHKHKKE 
* * 
* NOTE * 
ADDITIONAL * 
*BASES REQUIRED * 
% + 

* 


KRHEKMKEEKKHKHHK HH 


Vv 
HEHE CGHHHH HHH 


* * 
* RETURN * 
* ry 


KEK KKHHHEH HHH HE 


#044503 
HHKHHAE DG HHHHMKKHHRKEK 


* PUNCH ANY * 
DATA LEFT ON 
* TXT CARD * 


HKEKHKKHHKHKHHE 





HHHKKKD SHE KHHKKEKKH H 


*% 


>: 


* 
* 
* 


PRINT MAP 
LINE 
* REMAINING * 


HHEHKHKHKRKMHKHK 


a etic ee 


KRHEKKEEOHKKRHKKHKHKHE 


RETURN 


HHKKEKHKRHNKRKHHEHKKEH 


* 


* 
* 
* 


Chart cCT. 


DATA 1 HOLDS 
THE ADDRESS 
OF THE 
VARIABLE 


MAP EQUIVALENCE 


G0441 
HRHKEEAKHRHEKREHKE 
* * 
* EQUIV * 
* MAP * 


HRHKEKHHKHEKMEKHEHE 


| 

| 

Vv 
o%e 


B2 He 
o% He 
o* ANY *e NO 
*e EQUIVALENCE o«* 
He DATA o* 
ee e* 
%e oo € 
* YES 


Vv 
HRHHKHECD HEHEHE HEKE 


* PRINT * 
HEADING FOR 
* EQUIV MAP #* 


HREKKHEKEHHEKEE 








Vv 
HHH KHO DEK EHH RHEE 
*DETERMINE DELTA* 
*FOR EQUIVALENCE* 
* AODRESSES OCB * 
* TO BASE TABLE * 


* SIZE * 
HH HK ENE HHH 


| 
| 
| 


Vv 
HEHEHE DEK KKH HRHE ER 
x * 
* FLIP THE * 
* EQUIV * 


*ALLOCATION ROLL* 
* * 
HHH HH HE HH HE HHH 


HHH 
*% * 
* F2 1 
*% * 
3 HEE Vv 
#044101 o%e 
Fe %e 
e*#DATA ON*®e | 
«* EQUIV *-e NO 
*-e ALLOCATION o*¥——_—_—_ 
te ROLL o* 
ee a* 
%e o* 
* YES 


{ 

Vv 
HEHE HG I HEHEHE KHER 
* MOVE NEXT * 
* GROUP TO * 
* CENTRAL » * 
* INCREASE * 
* ADDRESS * 
HHH HIKE HE HHH HH EE 

| 

| 


Vv 
HHH HHH HHH HK EHEK 
* * 
* ENTER INFO IN * 
* MAP», PRINT IF *® 
* LINE COMPLETE * 
* % 
HEHEHE EHH EEE 


| 

| 

Vv 
HHH SDH NE HE RHEE 
*DETERMINE BASE * 
* POINTER AND * 
* DISPLACEMENT * 
* FOR VARIABLE * 
% 
* 


% 
REM KRHKHHHRKKKRHHHE 





| 


Vv 
HMM HK DH HH HEE EEE 
* PUT GROUP * 
* FOR VARIABLE * 
* ON COMMON *¥—— 


* NAMES * | 
%* TEMP ROLL * | 
MH MKH RHR KKK KHER HE Vv 
HRKH 
* 
* FOR ¥® 
* 


RHEE 


KHREEKGY SHER KKHHE 
*% . 2 
>* RETURN * 
*& * 

HRHEEHHKHMHKHKHERHKE 


Fear Vv 


HRRHHE ZH EEE 
* COPY * 
* COMMON NAME * 
* TEMP ROLL TO * 
* EQUIV ALLO- * 
* CATION ROLL #* 
HHH EKEKKHEHHEREHEEK 


| 
{ 
v 


KHKKKEGZHK HEHEHE 
* % 
* * 
*UPDATE PROGRAM * 
* BREAK * 
* * 


KHKKEKERHEHEKKRKEKKEEK 


Vv 
HH HREM HH E HEH 


* PRINT * 
PARTIAL LINE 
* OF MAP * 


KHKEHKHEREKRHKEEE 


Ce 


HHH H I ZH EK HH HEEH 
* * 
* RETURN * 
* * 


HHEKKKHHKKKEKEKKE 
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ALLOCATE SUBPROGRAM ADDRESSES 


G0403 


HHH AD HHH EE 
* * 
* GLOBAL SPROG ¥* 
* ALLOCATE * 

HH HEE EEERHEE EER 


Vv 
HRHKERKHDKHKHHRHKRKKEK 
* * 
* FLIP THE * 
* GLOBAL SPROG * 
* ROLL * 
* * 
HEKKEEHKKEKHEKKKEEE 


HERE | 
* * 
* C2 *—> 
*% * 
RHEE Vv 
#040301 ee 
c2 He 
o* Ke 
e* DATA ON ¥*.e 
*e THE GLOBAL .* 
%.e SPROG .* 
*eROLL .* 
%e oo 
* YES 


{ 

| 

| 

Vv 
HEUKEDDEHERHE HERE 
* * 
* MOVE NEXT * 
*GROUP OFF ROLL * 
* TO CENTRAL * 
* * 
HEHEHE EEK EEE ER EE 


| 


#040303 
HHKKKCZ HE RHHHKRHEEE 


* COPY COMMON ¥* 
NO * DATA TEMP * 
—— ee ROLL TO * 
* GLOBAL SPROG #* 
* ROLL * 
RH HEME EH KEE HERE 


E2 Ke HKEHKHE SHREK HK HEKE 
o* %e * * 
o* *. YES * * 
Re DUMMY o ¥———————_ >¥ INSERT ZERO TAG* 
eo o® * VALUE * 
Ke o* * * 
He ot KHREKHHK EKER HERKEN 
* NO | 
| 
| 
| 
#040308 Vv 


HRMRKKREE PD KEKREKEKHRKEE 
* ALLOCATE * 
* STORAGE FOR ¥* 
*ADDRESS RECORD * 
* (PRINT LIST) * 
* PUNCH ESD * 
KEM HKKHERH KHER KHEEE 


| 


| 
\< 
#040302 v 
KHHEKERGLKEEKRKKKMRKEE 
* * 
* PUT GROUP * 
*ON COMMON DATA * 
* TEMP ROLL * 
* * 
HRKKRKKKEKHEKEKEH HH EH 


SPROG ALLOCATE 
AND OUTPUT 


ee eaters Nn Ate A pn ere RS we EN AN Se fe 


HHEHHKY ZH HEH ERE EH 
* ALLOCATE * 
* STORAGE FOR * 
* ADDRESS RECORD »* 
* PRINT LIST * 
* PUNCH ESD * 
HEH EHH HE HHH HH 


HHH H { 
* * 
* J3 *-> 
* * | 
HEN | 
Vv 
HKHEHHH ZMH HHH HHH HH 
* * 


* PUT GROUP * 
*OQN COMMON DATA * 
* TEMP ROLL * 
* * 
HHH HEE HHH HEHE 


HERE 


OK ok 
1s) 
+ 

OK Ok 


HKEK 


HHKKECEEHRHHH KEE 
* * 
* FLIP * 
>* THE USED LIB ¥* 
* ROLL * 
% * 
HKRHREKHEKKEKRHKRKNHEHEKE 


RHEE 
* * 
* D4 #—>] 
* * 4 
HEHE Vv 
#040304 ate 
D4 He 
o* Re 
°* DATA GN *¥e 
*.THE USED LIB «* 
*. ROLL * 
Xe o* 
Xe a * 
* YES 


e* INLINE *¥. NO 


#040307 
HHH KH DS HEHE KER 


* (COPY COMMON ¥* 


NO * DATA TEMP * 
<r ROLL TO * 
* USED LIB * 


* FUNCTION ROLL * 
HHHKKEK KHER ERER 


le ee 


HRHHRHKKESHHHRMHKHRERHH 


* PRINT PARTIAL * 


Ke FUNCTION «*¥——— LINE OF SPROG 
Re 0% f * LIST IF * 
Ke o* | REQUESTED 

ek oo Vv RHKHKKKHKKENRKE 
* YES KREE 
| * * 
| * HS * | 
| * * { 
HEME | 
i 
Vv Vv 
KHEKKHEG HHKRKKKKERE KHEKHKKE SHH KHHKREKEEE 
* * 
* MARK GROUP * * PUNCH * 
* FOR INLINE * PARTIAL ESD 
* FUNCTION * * CARD * 
* * 
HEKMKMHKHKKKHKHKRER KRHEHKKKEKKKHHEE 
| | 
| | 
| 
Vv 
HHH | 
*% * | 
* J3 * | 
* * Vv 
HERE KHKEKEGSHHHKKKHHEE 
* * 
* RETURN * 
* * 


SPROG ALLOCATE 
AND OUTPUT 


KRHKEKKHKKHKHKKEHE 


Chart 


GO0405 


HHH AD MH KEEN H 
# BUILD % 
* NAMELIST * 
* TABLE % 

Ce 

| 
\ 
7 
ote 
B2 He 
ot He 


e* DATA ON *. NO 
He NAMELIST ot 
*%e NAMES o* 
*.eROLL .* 
#e o% 
i YES 


Vv 
HEHEHE RHHEHERHHSE 
* FLIP 
*NAMELIST NAMES 
* AND NAMELIST 


BUILD AND PUNCH NAMELIST TABLES 


HEHE FEE EE HE 
* * 
>* RETURN * 
* ¥ 

HEHEHE HE EE HE HH 


THE LATTER 
HOLDS THE 
ITEMS FROM 
THE NAMELIST 


* 
% 
* 
* ALLOCATION * 
* 
* 


* ROLLS LIST 
HHKEKHEG HHH HHH HEH 
| 
| 
| 
{ 
HHKHHHED OS HEMMER H HHH 
* PRINT HEADING * 
FOR NAMELIST 
* MAP IF * 
REQUESTED 
HEHEHE KHHRHHEKH 
I 
HKEEH | 
* * 
* E2 *-—> 
* * ] 
HH HH Vv 
#040501 oe #040505 
F2 ee HHHHHE FH HEHE EE 
o* DATA ¥*. * COPY COMMON) ¥* 
«* LEFT ON *. NO * DATA TEMP * 
*.  NAMELIST o*¥———_—_—_—_—__> * ROLL * 
*. NAMES) o* * TO NAMELIST * 
#.ROLL o* *# NAMES ROLL * 
Keo ao & HEHEHE HHEKRHKHE RHEE 
* YES | 
| ! 
| | 
| | 
Vv V 


HHH HII DH HH 
ENTER NAME + 


Ce Ce ee 
PUNCH AND PRINT 


* LOC IN MAP # * REMAINING * 
LINE PRINT INFO IF 
* IF LINE * * REQUESTED *% 
COMPLETE 
HEHRHMMHKEHHHRHRH HHEKRHMHMRHHHHHEE 
{ | 
| { 
| | 
| | 
Vv 
HHKHRHGDP HEHEHE HHEK V 


* PUT BASE ANDO 
* DISPLACEMENT 


* HHHKG ZH HHH HH HHH 

* *% 
* OF NAMELIST ¥* * 

% * 

* 

* 


* 

RETURN * 
* TABLE ON COM-— * 
* MON DATA TEMP 
HH HHH HH HHH HEH 


HEHE HHEHKHEHE HEHEHE 


HEHEHE HH HH HH HH HH 
%* MOVE NAMELIST #* 
* NAME AND 2 * 
* WORDS OF O TO * 
* CODE ROLL AND * 

* 

* 


* OUTPUT 
HH HH HH EH IK 


HUH | 
* * 
* J2 #-> 
* * | 
HERE Vv 

#040502 o*e 
J2 ¥. 
e*DATA ON*. 

e* NAMELIST *e« NO 
*. ALLOCATION «*-———4 

®e ROLL o% | 


THE NO 
ANSWER IN- 
DICATES EITHER 
NO DATA OR 


%e o* | A MARKER 
He ot v 
* YES HH HH 
* * 
* H4 * 
Vv * % 
HHH HHH 
* * 
* Ba * 
* * 
HHH 


#40506 Vv 
HHHKHBYGHRHHHHH HK HEE 
* MOVE FIRST 4 * 
* WORDS OF * 
* ITEM ENTRY * 
* TO CODE ROLL * 
* = AND PUNCH * 
HHEHH MH HEHEHE HHH HK 


ee 


eo ARRAY o* 


He o* 
He ot 

* YES 

| 

| 

! 

i 

{ 

Vv 
HHH OG HH HEE EEE K 
+ + 
* MOVE ALL * 


* DIMENSION * 
#FACTORS TO CODE* 


* ROLL * 
ee 


HEHE KYA WHEE HM HHH H 
% % 
% * 
*UPDATE PROGRAM * 
* 
* 
* 


* BREAK 
* 
HHMI KH HK EK EHH 


e NO 
%e VARIABLE AN «*#-~—— 
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BUILD BASES 


G0438 


HHH KAD HHHHHHHEE 
* BUILD * 
* ADDITIONAL * 
* BASES * 

HH HEHEHE HHEE HEE 


KEEN | 


* * 
* B2 *->| 
* *% 
MEMH 

Vv 
KHKHKGP RHKKHEKHKHH 
* * 
* OBTAIN * 
*#PRESENT PROGRAM* 
* LOCATION * 
. a * 


HKRHEKKHKKHKKHKKHHKHKE 


| 


o*%e 
C2 Ke 
o% He 
0% MAX FOR %e YES 
Ke LAST BASE 0% 
Ke eX 
Re o* 
He 


| 
| 


Vv 
HKRKEKED DPD KHKKHKREKRKKH 
¥* * 
* INCREMENT * 
*#BASE ALLOCATION* 
* * 
x % 
HHH HKHHKHRHKRKRHHKHKEK 


HRHERHE DKK RKHHEKKEX 


% 
NO 


* x 
* REGISTER * 
* NEW BASE * 
* ALLOCATION * 
*% * 
* * 


KMREKRHKHKHHEKHHKE 


* 


>* 
* 


HEHE CZIHHHHKHHHE 
RETURN 


HRRHEKRKHKHKKHKEKKHEK 


% 
* 
* 


Chart CX. DEBUG ALLOCATE 


G0545 
HH HHA D HHH 
* DEBUG * 
* ALLOCATE * 
* * 
HK HE 
! 
HEHE | 
* * 
* B2 aia 
* ¥ 
HHH Vv 
ot, 
B2 %e HH BB HE EH 0 9 IE HE 
o* He * * 
o% DATA *. NO * INVERT * 
*#.ON INIT ROLL «*——————>*THE SUBCHK ROLL* 
he .* * * 
Ke * * * 
He ok He ETE EEE EE EE IE EE 
* YES 
| HHH | 
* * 
| * C3 *-> 
| # * | 
HHH Vv 
oe 
HHH HCD EH HH HE C3 %e 
¥ MOVE * * he HHI CG HH 
* VARIABLE NAME * o* DATA *. NO * * 
*OFF OF ROLL TO * *. ON SUBCHK .*———————>* RETURN # 
* CENTRAL AREA * *. ROLL .* * % 
* * He o* HHH MH HH HE 
HE IE RH EE EE he of 
| * YES 
| | 
| 
! | 
! 
Vv 
o*e Vv 
D2 %. HEHE HO BEE 
o * Be * MOVE * 
e* MATCHING *. NO * VARIABLE NAME * 
Fe GROUP ON « *¥—— *OFF OF ROLL TO * 
%e SCALAR o* * CENTRAL AREA * 
*eROLL «* * * 
He 4k eee eee er rr rere SS 
* YES | 
| 
| 
| 
| 
Vv 
ete 
HER EK ED HERE EE EE E3 He 


Ceo 


«* Re 
e* MATCHING *. NO 
Ke GROUP ON « *¥-———_~ 
te ARRAY 0% | 
*.ROLL o* j 


* * 
* SET THE INIT * 
* BIT IN THE * 
* ARRAY ROLL * 
* GROUP * 
* ¥* 


% * o* He 
* SET THE INIT x o* MATCHING *. NO 
* BIT IN THE * *®GROUP ON GLOBAL *———4 
* SCALAR ROLL * *eDMY ROLL .* | 
* GROUP % Ke o* | 
HHH HEI HE HE HH HE He oF | 
* YES | 
| 1 
—— | | 
| | | 
I | | 
Vv | | 
o*e Vv | 
Fo Hg HHH FMR HHH HH | 
o* %e * SET * | 
e* MATCHING *. NO *THE SUBCHK BIT * | 
Be GROUP ON « *¥—— * IN THE GLOBAL * | 
Be ARRAY o* | *DMY ROLL GROUP * | 
%®eROLL «* | * * | 
He cee e eee ee ee | 
* YES | 
| | | 
| is 
| 
| | | 
| | Vv 
Vv | o*¥e 
HHH KHEGD HHH HHH HEE | G3 He 
| 
| 
| 
HH HIE HE eH EE EE HE | He o* Vv 
| | *® YES HHH 
| | | * * 
I< | *# C3 * 
| { * * 
| HH HH 
Vv 
ete Vv 
H2 %. HHH ZC HHE HEHEHE 
o*® %. * * 
°o* MATCHING *. NO *SET THE SUBCHK * 
*GROUP ON GLOBAL *——-4 * BIT IN THE 
*eDMY ROLL o* | * ARRAY ROLL * 
Ke o* | * GROVYP * 
He Vv HH EH HM HH HH HI HE EH 
# YES HHRHRH { 
| * * | 
* Bo * { 
% * Vv 
| HEM HH HH 
{ * % 
Vv * C3 * 
HHH HH IJ DUH HH HH KEKE % * 
* SET * HHH 


*THE INIT BIT IN* 
*THE GLOBAL DMY * 
* ROLL GROUP * 
*% ¥* 


ee ee ee oe 
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PHASE 3 - UNIFY 


GO111 


HHKH AD EH HEHE EE 


* * 
* START UNIFY * 
* * 


HHEKEHKHHKHEE HEH 


GO145 Vv 
HEHEHE BD HH HHH HEHE 


*ARY REF AL-~DAA2* 
H— HHH HK HH 


* ALLOCATE * 
*GROUPS FOR ROLL* 
* * 


KEKE HAKEMEHEEREHHEEE 


HHH | 


* * 
* C2 *-—> 
* * 
HHH Vv 
o*e 
C2 He HHHHEC ZEKE EEE EEK 
o* Ke *COPY AREA FROM * 


* RESERVE START * 

>*TO SCRIPT ROLL * 
* RESERVED AREA * 
x 


e* DATA ON *e YES 
Ke PROGRAM o* 
*¥e SCRIPT o* 





*.ROLL o* % 
%e oF HEKEKKHRHEKKHEKEKRHEN 
* NO 
Vv 
KRKEK 
. * 
#11106 v * C2 * 
HERERO DS RRKKERHHHHE . 2 * 
* * HREKK 
* RESERVE * 
*PROGRAM SCRIPT ¥* 
* ROLL * 
* * 


REEKHEKHEEEKEKREREE 


HERE 
* * 
* E2 *—> 
* * 
HREM | 


v 
HEKRHED HH KHEKEKEHEN 
* * 
* MOVE NEXT * 
* GROUP FROM * 
* SCRIPT ROLL * 
* * 
* * 


KEREKEEEKEHEEEHEE 





F2 Ke 
o* He 
o* END *%e YES 
*.OF ROLL DATA .*-—--—4 
He * 
He * 
Be o* Vv 
* No HHH 
¥ * 
* AG * 
* * 
| HHH 
Vv 
HEHE G 2 HH ERE EEE 
* * 
* REPLACE * 
*GROUP ON SCRIPT* 
* ROLL * 
* * 


HEKHKEKKEKKKEEKHEN 


G0115 Vv 
HHE KH HE RHEE HEHE 


*DO NEST UNsDDA2* 


HARA KKH HH HH 
* PROCESS * 
* NEST OP * 
* LOOPS * 


HRHREKHKEEKHEEEKERKHE 


Vv 
o*e 

J2 es HHH J ZHEHEEERHEEE 

o* He * * 

«* LOOP TEMP *-+ NO * SET REQ LOOP * 

*¥eCNTS REQ LOOP. * >*TEMP CNT = LOOP* 


*.TEMP CNT o* * ~~ TEMP CNT * 
Re o* * % 
Keo oF HHH HKH HEHEHE HEHEHE 
i YES 
v Vv 
RHEE HRKEN 
% % * * 
* E2 * * £2 * 
x * * t 
HUEKE HREKE 


HHH 
* * 
* AG * 
* oa 
HHH 
| 
| 
| 
v 
HHHEHKEAGHHKKHKHEHKHE 
% * 
* RELEASE * 
*PROGRAM SCRIPT * 
* ROLL * 
* %& 


KOE IE IESE 
| 
| 
{ 


Vv 
HERKEN BGRHHKHH MH HH 
* * 
* SET UP * 


* POINTER TO * 
*¥ ARRAY REF ROLL * 
* % 
HEHEHE EHH EEE HEHE 











KHHE | 
* * 
* C4 ¥*-—> 
* cs 
HH Vv 
o%e GO0113 
C4 #e 
o* %, KHER CSHEHKHKKHHE 
o% POINTER %. YES * CONVERT TO * 
* OUTSIDE ROLL «* >* ADDR CONST * 
Ke o* * DBA2 * 
ke ox KRHA HHH KH HE 
He of 
' * NO 
Vv 
HRKKRKOG HH HHEHKHHHHEE 
x * 


*SET REG RUNG = * 
*4 AND INCREASE * 
* POINTER * 
* * 
HEHEHE HEHEHE EERE RHEE 


G0112 Vv 
HHEEHE AEH EE KEKE EH 
*#CNVT/FORMT—-DCA2* 
[ee oe oe oor 
* CONSTRUCT * 
* INSTRUCTION * 
* FORMeFOR REG2 * 
HERKEN RHEE EEK E 


Le ee 


KRKKHE HHH HEKE 
% +t 
* Sa 
* INCREASE REG #* 
* RUNG BY 4 * 
* * 
HKEKRKKHKHRKKRHEKRHHHEE 


GO112 
HHKHH GG HHH KE HEHE 
*CNVT/FORMT—DCA2* 
Hm Hh HK — KKH KH 
*CONSTRUCT INST * 
* FORMAT FOR * 
* REGISTER 2 * 
HHH HEHE HHH EK HEE 


Chart DA. 


GO145 


ee ee AD te te eee 


% ARRAY REF 


Fa 
* ROLL # 
# 


# ALLOTMENT 


MMM HHH HHH HH HHH 


<2 0@ @ @ & e@ 


HHHHA_Y? ee He 4e se se se Hee 
# GET cs 
+ BEGINNING * 
* ADDRESS OF it 
#ARRAY REF ROLL * 
* % 
ee ee ee ee aes 


ee 8 8 


‘4 


Hew H CC Hse ee He ee ee 


+ 
GET ADDRESS #* 
* OF PARSE SAVE #* 
AREA + 

* 

+ 


* OK 


ook 


MHHHHHHHRHHHRHRHRHH EH 


“<e e@ 0 oe 


HRHHHD? Hse eH see 
* * 
* GET NUMBER % 
* QF ARRAY REF * 
# ROLL ENTRIES #* 
% % 

* 


HHEHEHRHHPHHHRHRHEKRHEH 


HHHHE 

* * 

* E2 8.08 

cs * @ryree2e2ee#eee#@ 
HHEH e 


#14501 


HHHHHEPHHHH HHH HHH 
% % 


* LOAD GROUP # 
*INDICATED WITH # 
*#INITIAL ZEROS # 
co tt 

# 


HHHEHRHRHHHHHHHEKHHRH 


HHHHHP PRK HHH HE 
# # 
i INDEX TO # 


* NEXT ENTRY i 
* POINT ON ROLL # 
+ * 
HEHEHE KHER REE H 


BUILD ARRAY REF ROLL 


- *NO 
-* _E 
Gewlecs we as EQUA 


Ke 


+ 


@eeaneeaeee4eneeeeevxsz#e2e? 


e 
ox 


© 66 oe e6 wel tw 


« OF #. 


NTRIES 
L ZERO 


e * 
* NO 


* 


* 


* 


HHEHDGHHRHRHEHRHE HH 


3. VES 


he eee ee wen 
* 


RETURN 


% 
% 


HMHERHHHRRHHERHHEE 


HRHEKPFGHRHH EH HRHEH 


« CES % 


oF ses ewe ee Ae 
* 


RETURN 


% 
t 
% 


SER HTH HM HHH HHH RH 
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DB. 


G0113 


HHHKADE 
* CONVE 
* ADR 
* 


HEKKKHE 


HHHHEBOHN 
* 

*SET UP 
* FOR 
* CONTRO 
% 
HRKHHKEK 


HHH 
* * 
* C2 *-—> 
* * 
HREK 


#011301 ‘a 
C2 


e* 

e* POI 
*.OUTSID 
Ke 

te 
He 


HHHHHD DH 


* 
% 
* INCR 
* PO! 
* 
* 


HRHKEKHHE 


HHXHHHED # 
* 
* MO 
*BASE IN 
* 


* 
HRHKKEKEKH HK 


F2 
* 
e* REFE 
° TEMP 
%.e CO 


* 


HEKEKKKEKE 
RT TO * 
CONST * 
* 
HHEKHKEEK 


| 
| 
| 
| 
| 


v 
KKEKKKKKE 


* 
POINTER * 
LOOP * 
L ROLL * 

* 
HHH EH HH HEH 


| 
! 


| 
Vv 
e 
#e 

%e 
NTER *e 
£ ROLL .* 

o* 
o* 


YES 


* 
NO 


acon ene 3K 


Vv 
HEHEHE HHH HE 


* 
*& 
EASE * 
NTER * 
* 
% 


HHH HEE 


<—— 


HEHE ENE 
* 
VE * 
FO TO WO* 
* 


* 
HKEKHHEKH 


| 


x 


Ke 
He 
R TO *.e 
AND 
NST o* 


YES 


¥e.ROLL o% 


te 


e* GEN 
ke REGI 
He 


Ke 


J2 
e* wO 
o* EQUA 
¥e OR L 


* 
* NO 


ERAL He 
STER o* 
* 
e* 


YES 


* 
NO 


—- 


Be 
RD ¥*e 
1 TO *e 
ARGER * 


YES 


*e THAN O o* 


He 
Ke 


* 


OK OK 


o* 
o* 
* NO 


| 
i 
Vv 
HHH 


> 
* OK OK 


* 
* 
ak 
* 


MAKE ADDRESS CONSTANTS 


HHKEHKCFHHHHEHREKEH 
* 


* SET UP DATA 
>*#AND INITIALIZE 

* FOR GEN 

% 


HHRKEHKAH KKH HEHE 


Vv 
KERHD ZRH KKH HHEE 


* 
* TEYGEN 
* 


HREKMHKKHKHKEREKRHHE 


ot 


| 

I 

| 

| 

| 

| 

| 

>| 

| 

| 

| 

| 

| 

| 

| 

>I 

| 

| 

| 

| 

| 

| 

{ 

#011302 Vv 

KHEKK JSZRHERHKHKHE 
* 
% 
>* PRUNE WO 

* 
* 


KHERKKKKKHEHKHEKKEKEE 


HHH 
* * 
* C2 * 
* * 

HHH 


e 
* 
*% 
* 
* 
* 
* 


* 
* 
* 


* 


* 
* 
* 
* 
* 
* 


KHHRE 
* * 
*¥ AG * 
* *% 
HHEHH 
{ 
| 
| 
#011303 Vv 
HHH KKAGHHHHKHEEKH 
zm % 
*FOR BASE (EVEN * 
* CODE * 
* DISPLACEMENT) * 
* IN DATA 3 * 
HRHRMKHKHRKRHKHRKHKHHE 


xo 


e e 
B4 ¥e 
e* He 
e*GRP MATCHES*e YES 
#.ON ADR CONST .*--——4 
Ke ROLL oe * | 
Xe Xt | 
ee a % Vv 
* NO RHEE 
| * 
* FG 
% 
| HHH 
l 
Vv 
HHHHKCG HK KH HHH HE 


* * 
*SET POINTER TO * 
* NEW GROUP ON * 
*ADR CONST ROLL * 
* * 

* 


MKMHKHHHKMHHHHHHH 


| 


Cae ee 


HHREKHDGHKHHKEKRKHEHK 
+ * 
* PLACE BASE AS * 
*NEW GRP ON ADR * 
rd 
& 
* 


* CONST ROLL 
* 


HHKKHKHKKHKKHKKHKE 


| 


< a eee 


HEHEHE G RHKHHHKHHEHE 
*¥ INCREASE PTR BY* 
* TEMP LOC FOR * 
*LOCPS BY 4 AND #* 
* PUT ON ADR * 
* CONST * 
ec ee ee ee eS 


HHH 
* * 
*# F4 *—> 
* * 
HEH 
#11304 
HHRHHEHEG HHH KEK HHEE 
* REPLACE BASE * 
* WITH TEMP PTR * 
* ON LOOP * 
* CONTROL ROLL % 
* * 
* * 


Cremer ere en 


HHEKKHKKKHHKHEKHHH 


THE WORD 

DOES NOT 

CONTAIN AN 

AREA CODE 

AND DISPLACEMENT 
INDICATING A 
NEED FOR A 
TEMPORARY 
LOCATION 


OK 


Chart DC. 


GO112 


HH HH AD HEHEHE HHH 


* CONVERT TO * 
* INST FORMAT * 
* % 


HREM MHRHRMHKKMHKHH 


| 
| 
| 


HHH HHBY D HH HM HK HH HH 
* GET * 
* REG RUN OFF * 


*ARRAY REF ROLL * 


* FROM POINTER) *® 
* % 
HHH HH EH HH HH HE HH 


*< 


C2 Fe 
o* Ke 
e* GENERAL Ke 


Be REGe NOTED o t— 


¥e o* 
He o* 


oe 
| 


KEKKKEO DHHKH HM HHH 
% * 
* MASK * 
*REGe RUNG VALUE* 
* * 


& * 
HHEKKHEKHEEKKHEHKKH EHH 


¢~¢—— 


RHEHKKEEDRKRKHKKHHKEH 


PLACE % 
VALUE IN R2 # 
POSITION FOR #* 
INSERTION ON #* 
% 

% 


ROLL 
HE KRKEKHKHKKKHEE 


eR OK ok Ok ok 


NO 


CONSTRUCT INSTRUCTIONS 


F2 te 
ot Ke 
o* R1 #. R2 
Fe OR « *¥———_ 
He R2 .* | 
%, o* | 
%e ot Vv 
* Ri HHH 
| % 
* He 
* 
| HHH 
| 
Vv 
HEHKKGQHHHHHHHHEE 
* * 
* SHIFT * 
* VALUE TO RL * 
* POSITION *% 
* * 
HHH HHH HH HHH HH HH EH 
HRHH | 
* * 
* H2 *—>| 
* * 
HH HH | 


Vv 
HHHEKHH DEKH HHEKH HEHE 
% * 
*INSERT VALUE IN* 
* ZERO RUNG OF * 


*ARRAY REF ROLL * 
* * 


KHEKKEKHHKHKKEKKKEH 


Eee eter ee cru: 


HKHKEJDKRKEKKKEKKE 


x % 
* RETURN al 
* * 


ee ee ee ee ee ee F 


* 


>* 
* 


HEHE ZH KH HHH 


RETURN 


KHKEGHKKKHKEKEHKE 


# 
% 
% 
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PROCESS NESTED LOOPS 


GO115 


HHH AD HHEEKHHKE 
* * 
* DG NEST UNIFY * 
* % 
HH KKH HHH EKER 


HEKH j 
* * | 
* B2 *—>| 
* SS | 
HHH | 
Vv 
HHHKHBYD HK HHH HK HHH 
* * 


®#INITIALIZE LOOP* 
* TEMP CNT AND # 


* NEXT LEVEL * 
+ % 
HEHEHE EE HERE KEE EK 


go. 


HHEEKCDKEKRREKKE KKH 
* * 
* PLACE IND. * 
*VARs COEFF. OF * 
* 
*% 
% 


‘% NEST IN WO 
* 


HHH HH E HHH HEHE 


| 
| 


Vv 
HRHEKEHD PKRHKHHHHKEH 
* * 
* CONVERT # 
* ARRAY OFFSETS * 
* * 
* * 
KHEKKKMHEKKRHHEH HHH 


| 
| 
Vv 


HHHKKKEDHHRKKH HEHE 
* COMP ARE 


% 
* NEST LEVEL OF * 
* LOOP WITH * 
* PREVIOUS NEST * 
* LEVEL * 
KEKE KEK EHH RE HK HH 





HREHH AZ HHH HEHE HK HE 


* * 
* RESERVE % 
* NEST SCRIPT ¥* 
* ROLL # 
* +t 
HRHKHHKKHHKMRHKHKHHRKX 


Snes en 


KHKHEDY GRR KEKE 
* * 
* COPY SCRIPT * 
*ROLL ONTO NEST * 
* SCRIPT ROLL * 
* * 
HRKEHKRHHHHEKRKHKKEKHRHHKHKHHK 


HEHEHE OZ HHHKHH HHH 
* PLACE INITIAL * 
*REGe COUNT AND * 
* INDe VARe * 
*¥COEFFe ON NEST * 

* 

* 


* SCRIPT 
KEKE EHH EK EE HHH EH 


MHEXR 
* * 
* F2 *—>| 
* * | 
KKK Vv 
#011502 oe. 
F2 %. 
ot 1s Re KHEEH 
o* NL 2 *. NO # * 
*. “LESS THAN o* >* H2 * 
Ke NL 1 o* * * 
te o® HRHHK 
%e e* 
* YES 
| 
I 
Vv 
oXe #011504 
G2 %e KHEHHEKEGZRHHK HHH EEE 
o* He * * 
o* NL 2 *. YES * PLACE IND VAR * 


*. NOT EQUAL e* 
*. TO NL1 o* 
te ot 
He e* 

* NO 
HHH | 
+t . 3 
* H2 #—>| 
* * 
HHEKH | 
#011503 Vv 
HHEKEKHD HHEKKEKEKHHEK 


* 


* 
* SET * 
* NEST LEVEL * 
* INDICATOR * 
* * 
HEME HE KH EH EE EN 


¢— 


HHH HK SDH HHH EEK 
* * 
* PLACE NEST * 
* LEVEL ON * 
*PROGRAM SCRIPT * 

* 

* 


* ROLL ~ 
HH EH HEH EKER EEE 


>*OF INNER NESTED* 
* LOOP IN WO * 
* * 
HHH KKH HEHEHE HEHE 


¢—— 


HME RHH GHEE HEH HH 
* 

* PLACE NEST 

* LEVEL ON 
*PROGRAM SCRIPT 
* ROLL 

HH KK KKK HEHEHE 


* 
* 
* 
* 
* 
* 


Ce ee 


HHH J ZEEE KERR 
* * 
* PUT IND * 
*VAR COEFFICIENT* 
* IN Wl * 
st * 


REKEKHEEEHEE HK KEKE 


HEHE 


* FA * 


ERE 


KHHHECGHHHMKKHHEE 
*SET QUTER LOOP * 
* CONTROLS AND * 
>* DETERMINE * 
* SCRIPT * 
* ALLOCATION * 
HK KEK EE HEH HEK EE 


| 
| 


HEKRKDGHHHHKHKKHKE 
* . 
* RETURN * 
* * 


HHKKHHHHEHKHKHH HE 


HH HH 
* * 
* FQ *#-——4 
* * 

HH HK | 


Vv 
HHEKEK KEG HHH K HK HEHEHE 


* + 
* PUT POINTER * 
* TO ARRAYs * 
* OFFSET IN wo * 
* c 3 
HRHMRMHEHHKHHHERHHEHK 


Vv 
KHMHKHGG HHKK HH HHH 


eo * 
* DETERMINE * 
* SCRIPT * 
* ALLOCATION * 
% * 
* * 


KEKKKHKHHKRKHHKKKEE 


| 
| 


Vv 
HHKHKKHHG HHH HHHKHHH 
* SET 


* 
* AVAILABLE * 
*REGISTER COUNT * 
* FOR SCRIPT * 
* EXPRESSION * 
MEM KHKHKKRHKHHKKKEKRE 


nn 


e 
J4 He HHH SS HREM HEHEHE 
* He * * 
o% MORE *%e YES *SET NEST LEVEL * 
*eNESTED LOOPS .* >*TO PROCESS NEXT*® 








He .% * LOOP * 
He ox * = 
Bie ox KRMHKRAHKHHEHKHKRKRKE 
: NO 
v Vv 
KREKEK HHHEK 
& ¥* *% * 
* F2 * * FQ * 
* * * * 
HHREE HH HH 


Chart 08. 


START GEN 


PHASE 4 — GEN 


G0491 


HRM A DEH EKHK EEE 
* * 
* ITEYGEN * 
* * 


HHH HREK KEKE HHEN 


Vv 
MEHR GD HME HEH HEHE 


*% Eg 
% % 
* INITIALIZE * 
* % 
* % 
*% % 


HKKKHHHHHKHHHEHHE 


G0499 Vv 


HHEKHKHC DEH EHEHRHHHRE 
*ENT CD GEN-EAA2* 
H— H— H— H— HK — He HK KH H 
* PRODUCE CODE ¥* 
* FOR HEADING * 
* AND ALL ENTRe * 
Pe ee ee 


GQS04 Vv 


HHEKK OD HHH HH 
*PROLOG GEN-EBA2* 
H#—K—H—KH—K— HHH 
* PRODUCE ALL * 
* REQUIRED * 


* PROLOGUE CODE * 
HHH HK HH EK HEE 


G0493 Vv 


HEEKHAGEHHHKNHERHHEHK 
*LBL PROC - EFA2* 
H—H—HKH—KH-—H—-—H-—H-—*E-—+* 
* REMOVE AND * 
* PROCESS * 
* LABEL * 
KHRKMHHKHKHRKKHEMRHHE 


| 

| 

| 

Vv 
HHEKEHKQGA HHHKHHHHEH 
* * 
*MOVE NEXT GROUP* 
* FROM POLISH ¥* 
* ROLL TO wORK ¥* 


* ROLL * 
He FEE TE TET IE ETE HE EE 


HHHE 


HEE 


GOos15s5 


MHEHHECGEMHHHKHHHEKE 
* STA GEN-EGA2 * 
H—H—H—H—H—H—H-—H-—* 
*GEN OBJECT CODE* 
*FOR STMT IF END* 
* STMT TERM PHS * 
HEKHH HEHEHE KH HHHHHH 


| 


G0496 Vv 


KHKEKEDG HEH HERE HEHEH 
*STA GENFIN EHA2* 
HAH — HHH — HHH 
* GEN CODE FOR_ * 
*DO CLOSE RESET * 


* TEMP PNTRS * 
HHH HHHKKRHHMRH HHH 


HHH BS HHH HHH EH 
* * 
* INDICATE * 
>* STATEMENT * 
*NUMBER ON CODE * 

* 

% 


* ROLL 
Se HEH 


CODE IS 
PRODUCED 

ON THE CODE 
ROLL 


| 

{ Vv 

| HHH 5 

| * * 

G0O508 Vv * FO * 

HHH HIE D HH MH HEH * * 
*EPILOG GEN-ECA2* HH HH 
HH HHH HH HE 
* PRODUCE * 
* REQUIRED * 


* EPILOGUE CODE * 
HHH HH HEE EK 


HHH | 
* * | 
* F2 *—> 
*% * 
HHUH 
GO712 v 
HHEEKHE DEH KHEE HEHE POLISH 
*GET POLISH EDA2* NOTATION 
HHH HK HK IS ON AFTER 
GEN PROCESS * MOVE POLISH * POLISH ROLL 
* FOR STMT TO * 
* POLISH ROLL * 
HHH HHH H RHEE HEH HEE 


| 


Vv 
HHH G DEE HKER EEE 
* MOVE * 
* STMT NUMBER) * 
. *FROM POLISH TO * 
oe * STORAGE * 
* * 
HNN EEE RHEE 


| 
| 


| 

Vv 
HHH HHH D HHH HHH ME EE 
* * 
*MOVE NEXT GROUP* 
* FROM. POLISH * 
* ROLL TO WORK * 
* ROLL * 
HHH HEE HE HH HERR EE 


*<——— 


e e 
J2 Re 
o% He 
o*% He NO 
*.LABEL POINTER. *——4 
ke o* | 
Ke e* { 
He ot Vv 
* YES HHH 
| * * 
j * C4 * 
Vv * * 
REEF HEE 
* * 
* AG * 
* * 
HEEX 
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Chart EA. GENERATE ENTRY CODE 


FOR LABEL 


* 
* 
* PGM LOC BUILD 
* 
* 
HKRHEKHHRHHRMRKHKHHKKE 


* 
* 
* 
CODE TO EXIT #* 
* 
* 


t 
1 
{| <—__-_—_—___4 
| 
| 
L 
#049902 Vv 
BKRHEKEP DHRHAKKAKHER 
* * 
* INSERT * 
*PROGRAM NAME IN*® 
* CODE # 
* * 


HHREKKEKHKKRKKKHKRHREE 


<n 


HEHKHGO KEKE HKEE 
* PUT. CODE * 
* FOR INITIAL * 
* SUBPROGRAM * 
* ENTRY ON * 
* CODE ROLL * 
HEE KE HHH ERE 


| 


GENERATE Vv 


HHH HHH HH KK EH HEE 
GENERATE * 
* ADDRESS * 
* CONSTANT * 
* FOR PROLOGUE * 
* * 
* *& 


* 


+EPILOGUE 
HH HEE HH HE HE HE 


| 
v 
HRRKEEK J OKRHHKHKEHKEKE 
* *% 
* BUILD SAVE * 
* AREA AD CON * 
* CODE FOR EXIT * 
* * 
HHH HHKE HHH HEHEHE HHKHKE 


KHEK 


OK OK 
ie] 
> 

* kk 


KREUK 


G0499 
RHHH ADP KHKKKHKKEE 
* * 
* ENTRY * 
* CODE GEN * 
KH HHH HHH HH HH HHH KHHK 
| * * 
| * Bao 
| * * 
| HEE 
| | 
l { 
Vv Vv 
aXe, oX*e 
B2 Ke HHKKHBYZHKHHHHHK HH B4 Hs 
o* #. * * * He HHKH GS HHMHKHH HK 
o* SOURCE *¥.e NO * PUT MAIN * o* ALL %e YES * * 
*.A SUBPROGRAM .*-————————>*PROGRAM HEADING* Ke GROUPS oe *——_——_—_—— > ¥ RETURN * 
Xe o% * ON CODE ROLL * *-ePROCESSEDe* * * 
Xe ox * # ke * HEKH HHH HK HHH HHH 
He o% ee ee ee ee eee Heo eX 
* YES | * NO 
| | 
{ | 
t | | 
| | l 
| ' 
#049901 Vv SET UP Vv V 
KHHHHKCD HHH HH HKEX HHKHHEC FHKE KHHE HHH KKCG RK HK HKHHHH 
* *% % SET UP * * * 
* INITIALIZE A * * SAVE AREA % * REDUCE * 
*¥POINTER TO THE * * LOCATION AT * *COUNT OF GROUPS* 
* ENTRY NAMES * * CURRENT LOC * * TQ PROCESS * 
* ROLL * *% * * * 
HHH EH HH HEH HHH HE HE EH HHH KKK KKH EK HHH HH HK HHH KKK KKKE 
| | HHH { 
| | * * 
| | * DG *-—>] 
| | * x | 
Vv | HH HH Vv 
o*e fF #049903 o%*e 
D2 He V- D4 Ke 
o* He KHER D ZRH HHH ex He HHH OS HHH RHEE 
e*NO-’ GROUPS *. YES * * o * ALL *. YES * * 
ke ON ENTRY « *———_ * RETURN * He GROUPS oe *¥—__————_ > * RETURN * 
®#eNAMES = 12* | * * * -PROCESSED e* % * 
He e* FEM MH HH HH HK HE He o* HHH HME HHH KH HH EH 
Xe oX | He et 
* NO | * NO 
| | | 
| { | 
| | i 
Vv | Vv 
HUKHHKE DK KE KK KEHHEH | HHKKHE A KHKHKHHHHRE 
BUILD A LABEL | * * 
RECORD INIT. lL. * REDUCE * 


*COUNT OF GROUPS* 
* TO PROCESS * 
* * 
HK EHH KH RE KH KEKESE 


<—— 


HHHKEHEGRKKEKREEKKE 


¥* * 
* INSERT * 
* ENTRY NAME IN * 
* CODE * 
* * 
+ * 


HERG HHH HKE 


Seamer 


KHEHKEGEEKEEHHHKRKRHE 


* * 
* PUT CGDE * 
* FOR ENTRY ON * 
* CODE ROLL * 
* * 
* * 


HEAKRKKHHKHEKEMKEKRE 


< ee 


HHKHHHG HHH KH HHHE 


* *% 
* BUILD INITIAL * 
* PROGRAM ENTRY * 
* AD CON. CODE * 
% * 
* * 


EHH HEHEHE HH HK HHH 


<-—_ 


HHKHEH JGHKHKKKKHKH 


* % 
* GENERATE * 
* PROLOGUE * 
* +EPILOGUE * 
* ADCONS * 
HEH H KEE HEHEHE EHH KK 


Chart ER, 


#050401 ‘ 


GOS504 


HERE AD HERE E EER 
* 


* 
* PROLOGUE GEN * 
* * 


RHKREKEKRELEREREE 


| 


Vv 
HHEHRKB2 EKER HERE EE 


* * 
*# INITIALIZE * 
* POINTER TO * 
* ENTRY NAMES”) # 
* * 
* * 


ROLL 
HEHEHE EE HEN 


Vv 
HEREC DEH EERE RHEE 
*#INITIALIZE CNT * 
*OF GROUPS TO BE* 
* PROCESSED ON * 
* ENTRY NAMES * 
* ROLL * 
HEHEHE KEE EEE 


HHH 
* * 
* D2 *—> 
* * | 
HRN Vv 
Ko 
D2 Be 

o* ALL He 
o* GROUPS ¥. 
*%. PROCESSED o* 


HHNHHE D HHEK HEH RHHEE 
* * 
* REDUCE COUNT ¥* 
*OF GROUPS TO BE* 
* PROCESSED * 
* * 
KKEKKRKKKHEKKEKKRMAEERE 





PROLOGUE CODE GENERATION 


HHH HD ZH RH 
* * 
>* RETURN * 
* * 


HRKRKEHKEHKKKKRHHEHE 


KEKEKKE FREHEHEKEHE 


* BUILD A * 
* LASEL * 
>* INSTRUCTION FOR* 
* PROLOGUE * 
* * 


RERKEKEKEKKEKHEHHHEK 


HEHE 
* B4 * 


HEHE 


Vv 
HEKEN BGG REHKHEK EKER 
* PUT LOCATION * 
* OF CLOSE OF #* 
* PROLOGUE IN ¥* 
* ENTRY NAMES * 
* ROLL GROUP * 
RHKHEHEEE EEE RE EEKRE 


#05402 V 


HRHHEK CGE HEHEHE R EK 


* 


* 
* UPDATE % 
* POINTER TO * 
* ENTRY NAMES * 
* ROLL * 
ERE E EEK 


HHEHECSHNEKHRKEMKKEE 


% * 
* CLEAR * 
>* BASE REGISTER * 
* TABLE * 
*% * 
HRHEKHKEKKEKHKREKHHEKE HEE 


HEHE 
% * 

* F2 *—{ 
* * 
HHH 


HL eet eae 


Vv e 
HEHEHE CKRKEKRKHHRKEKEE F3. He 
*CONSTRUCT CODE * o* Fe 
* FOR LOADING ¥* o* DEBUG *¥. NO 
* ARGUMENTS, IF * *UNIT SPECIFIED. *—y 
* 
* 
* 





* ANY %e o* | 
* He et 
HREGHHKREHKREKREKRHHRKEH ee. 0 F | 
| * YES | 
| | 
| | | 
| 
| | | 
| | | 
V Vv 
HRHEHKEGPKHKEKEKRKEKKHEE HHHEEKGZFHKRHEKRHEKRKHRE | 
* CONTRUCT CGDE * * BUILD DEBUG * | 
*FOR COMPUTATION*® * LINKAGEs UNIT * { 
* OF DUMMY * * CODE AND UNIT * 1 
*OIMENSIONS, IF * * NOs. IN CODE * | 
* ANY * * ROLL * | 
HRHEHKHRHEHKEKREKEKKHHEEH HMHEKHRKRKRKEKRKRKHHHHHEE j 
| | | 
| 1 | 
1 {<—_—____"‘ 
{ { 
| 
Vv 
Vv #50414 o*%e 
HRRKHKHHD RHEKKHHKKHE H3 Re 
* CONSTRUCT * o% te HHEH 
* CODE FOR * e* SUBTRACE *. NO * * 
* CLOSE OF * %e SPECIFIED .* >* FQ * 
* PROLOGUE * He o* * * 
* * He o* HKRREHKH 
HHH MH H MH BRIER HK HHH ee ot 
| * YES 
Vv | 
HRREHE | 
t * { 
* B4 # Vv 
* * KHKKEKH JS ZHHKMRKREHEKE 
HH HH * BUILD 


* 
* DEBUG LINKAGE * 
* AND SUBTRACE ¥* 
* START CODE ON * 
* CODE ROLL hag 
HKKKEMKHH KKH KKK EH 
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Chart EC. 


HEH HE LY] He 3 ae se He ae ae te 
BUILD DEBUG 
KAGE AND 


KOK ROK 


aT) 
z<Cc2 

wo 

4 

RD 

QP 

oO 

m 


HMMM H RH HE HHH 
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% 


% 
* 
% 
* 
% 
* 


GO508 


WHE 
* 


NO 
oKeeeeX* G4 
* 


THRE 


KHER 


% 
ooee X* G4 
* 


HHE 


HUCHAD HHH HHH 


Es * 
* EPILOGUE GEN # 
, 

papas eee ere 


EPILOGUE CODE GENERATION 


x 
ote #050803 
B2 He HHHHH BAH HHH HHH 
* %. * * 
«*SUBPROGRAM #. * OBTAIN NO. * 
*#. ENTERING TO wtececeee-X* OF GROUPS TQ * 
#. PROCESS .+* * PROCESS * 
He ot % * 
%e . * ee ee ee ee ee ee 
*x NO 
* 3 46 4b at * 
. * * e 
. * C3 *.X. 
o * * e 
‘ $e tte xX 
X #050801 ote 
HHHKHKCO HEE RHR HH C3 %. HHEHHC GH HHH HHH 
% SET * o* * * * 
* LABEL # o* ALL %. YES # PRUNE # 
*INSTRUCTION FOR# #. GROUPS oFeece cee eX#LAST ENTRY FROM* 
# MAIN PROGRAM) # *.-PROCESSED.* * WORK ROLL + 
* ENTRY * a o* * * 
Se ee ee es tHe ok SE ESE HE ESE HE ae HE SE SE SE SE ae aE a 
ee NO e 


><e e@ wo 8 


HHHHKRHDD KHER HR 
* * 
*BUILD CODE FOR +* 
# CLOSE OF * 
* EPILOGUE OF ¥#* 
* MAIN PROG * 
HHH HH 


X 
HHHHHKED RHRRHKRE HHH 
* # 
# BUILD * 
* MAIN PROLGGUE «* 
* CODE tt 
% % 


HMHHKRHRHHHHHHEHHHHE 


<e 6 © 0 ee 


HHUCKP ORK HHH 
* * 
# RETURN # 
% * 


HURRAH HKHHEKHEHEE 


+ 
* 
sd 
* 

* 


* 
+t 
* 
& 

* 


HHHHHO A HH RH 


# * 
*#SET BASE TABLE # 
*AS REQUIRED FOR# 
* EPILOGUE * 
* * 
HREHRHHH HEHEHE 


ee 8 eo @ 


ese D4 3 se se ae se tt tse 
*% 


RETURN # 


* 
HEMRHKRHRHRHHEHHKH 


+t 
* 


X 
HHHHKHKE RHR HHH HEHE 
*BUILD INSTRUCT #* 

* FOR DUMMY * 
#ARGUMENT VALUE # 
* TRANSFER + 
* * 
ee ee ee oo 
X 
oFe #050802 
F3 Be HRERHRKEGHHHRHRHRHRHHHE 
e* ENTRY #. * * 
-* DEFINED #. NO * PRUNE * 
#,. AS SCALAR st eeceeee eX*#LAST ENTRY FROM# 
#. 2% * WORK ROLL * 
H. * * cs 
He * ee ee ee 

* YES 

es HH HH 

e cs % 

. # G4 #.ee 

e *% * e 

i RHEE ‘ 

X #050845 X 
HRHKHKGZHRRKHHHKREEH HRHHHHGGHRHRRERHHHHE 
* BUILD LOAD Sa * * 
* INSTRUCTION #* *BUILD CODE FOR # 
# AND CLEAR * # CLOSE OF * 
* ACCUMULATOR # # EPILOGUE OF ¥#* 
# * * SUBPROG * 
HRM LHRH HEHE eee ee ee ee 


x 
HHRMA HH He He se HHH 
* % 
*DECREASE NUMBER# 
* OF GROUPS TO +* 
# PROCESS * 
* % 


HRHMRKHHHEHHRHRHHHEE 


HHEHK 
* 


ag 
ooo e Xt Gl * 
* % 


HEREEK 


HE 
# * 
eee e X* C3 # 
es a 


HHH HK 


Chart ED. 


MOVE POLISH NOTATION 


GO71z2 


HHH AD HHHHKK HEX 
* # 
* GET POLISH. * 

* 


HERE HHKKHKEKREK 


Vv 
HEHKNGD HHH KH HEHE 
* * 
*SET UP POINTER * 
*TO AFTER POLISH* 
* ROLL * 
* * 
HHH HEH HH HHH HEH 


| 
| 
| 


Vv 
HHEHHECD KRHKKHKHRKHAKE 


* * 
* COPY _POLISH ¥* 
* FOR STMT TO * 
* POLISH ROLL * 
*% * 
* * 


RHR KH HHH EHH HEH 








Vv 
HHKEH DD HEHEHE HNE HH 
* * 
*UPDATE CONTROLS* 
* FOR AFTER * 
* POLISH ROLL * 
* * 
HHH HH HHH HHH 


| 
| 


Vv 
HHH E D HHH HH EEE 
* * 
* RETURN * 
* * 


HEEKKKHMRHEREKHREE 
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Chart EF. 
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PROCESS LABELS 


G0493 


HHEKH AD HE RHEHKEHHRE 


* * 
* LBL PROCESS * 
* * 


HRKKHHHKKKEKKEKREE 


ce ee en mS dation tis 


HHEHEKEKBGY REKRKKHKHERE 
* * 
* STORE POINTER * 
*TO LABEL IN STA* 
* LBL BOX * 
%* * 
HKEKEKHKRKAKHKKHEHKKHRKKE 


| 
| 
| 
| 


* * 
* CLEAR THE # 
* BASE REGISTER * 
* TABLE * 
* * 
KEK KKKKKKHKRHREHKRKKE 


| 


AARNE NN a a IR ee A AR ne PRIN Se 


{<——_—_—_ 


#049301 v 


HRERREP DRKKRKKEKERE 


* % 
* PUT LABEL * 
* CODE GN CODE * 
* ROLL * 
* * 
HERE H HE ENE KEKE 





H2 Ke 
o* ke 
o* DATA *. NO 
Ke ON AT o t———} 
*%e ROLL o* | 
Re o* i 
He eX Vv 
* YES RKEX 
HHUEE ] * 
* * q * C4 
* J2 es * 
* * | HEHE 
HH EK Vv 
#49302 we 
J2 Ke 
o% %e 
o% AT *. NO 
*STMTe« FOR THIS.* | 
*. LABEL 0% { 
%. o* j 
Heo Vv 
* YES KHEEX 
] % 
j * C4 
Vv * 
HHH HHEE 
% % 
* B3 * 
* * 


OK 


HHEN 


Kk 
o 
wi 

KOK 


mn neel 


HHKKHB IHREN KH RE 
*MAKE LABEL FOR * 
*DEBUG CGDE-PUT * 
*BRANCH ON CODE * 
* ROLL * 
% % 
HHH HH HHH KH HHH 


| 


Vv 
HHKKKC IHRE KKHR HH 
*PUT POINTER TO * 
* MADE LABEL ON * 
* AT ROLL-WORD * 
* 2 OF GROUP * 
% * 
HERKEN K AKER HEHE 


| 


| 


HHHEED ZGRHHAKRMHEKHMRH 
* MAKE LABEL * 
*FOR NEXT INST— * 
* RUCTION — PUT * 
* LABEL CODE ON * 
* CODE ROLL * 
HMRKEHKKKHRKHRHKRHRHKHHRE 


Po sa Sa eas 


i 

Vv : 
HKKEKE SHERMER KHE EH 
*PUT POINTER TO * 
* MADE LABEL ON * 
* AT ROLL-WORD * 
* 3 OF GROYP * 
% * 
HR EKA RHHENEEHE 


i 


Vv 
HHHHEP GRE KRHAHREKHH 


* % 
* CLEAR WORD 1 # 
* OF AT ROLL * 
* GROUP * 
* * 
% * 


KHHHKHAKHHKHKKHE 


‘FIRST WORD 


GF AT ROLL 
GROUP TS 
CDMPARED WITH 
STA LBL BOX 


#49305 s 


* * 
o* TRACE 
Fe SPECIFIED o%* 


HHREKHK OG HH MH HH 
* PUT DEBUG * 
* LINKAGE FOR * 
* TRACE ON CODE * 
* ROLL * 
* * 
HEE HK MEH EKKKH HEHE 


| 


Eee tee 


HEHEHE G RHENKERHRE 


* ; * 
* PUT BINARY * 
® LABEL ON *% 
* CODE ROLL * 
* x 
MHEKKRHEHAHHKHKHEKKEKE 


alo eniney eats main mits etnias 


HEKKE GL RHHHEHKKRER 
% * 
* RETURN * 
* * 

KREG HKMH KEKE HHE 


*e NO 


* 


>* 
& 


HHEEKCHRHRKKRKKKHK 


RETURN 


HKEHKKKKKKEKKHKAKE 


* 
* 
# 


Chart EG. GENERATE STMT CODE 


GO515 GOS44 
HREHHAD HH HKHH HEH HRHMAGHH HK KKH K 
* * * TERMINATE * 
*% STA GEN * * PHASE % 
% * es 
HHH HHH HH HH HH HHH HHH HGH HHH HH HHH 
| | 
| 
| | 
[ | 
| | 
Vv I 
aXe Vv 
B2 He HH HKHH HG HH HH HH HH HH 
e* STMT %e * * 
e* FUNCTION *. YES * PREPARE % 
*. MADE LABEL « *———} *FOR EXIT PHASE *¥* 
*e PTR = 0 «* | % * 
* * % * 
ee *” | HHHEHMKHKHHHHHHEMKHH 
* NO { | 
| | 
| . 
| HHH HK 
Vv | *O9 * 
o*%e | * A2* TO PHASE 5- 
C2 te x & EXIT 
e* STMT He | * 
e* FUNCTION *. YESV 


Fe DRIVER ON «*——] 
Fe WORK o* 


| 
Vv | 
| 





HKHHERDS HHKRKRKKHKKEN 


BUILD 
CODE FOR 


LABEL 


% 
* 
STATEMENT * 
* 
* 
HHH HHH HH EHH HH HH 


t 
* 
* 
* FUNCTION MADE 
* 
*% 


< 





I 
#051502 Vv 
HKHKEKEDKKKKRRHRKHEK THE JUMP TO 
* APPROPRIATE 
* GENERATE * CODE GENERATION 
* CODE FOR * THE CONTROL 
* STATEMENT * DRIVER IN WO 
* * 
* * 


* 


AND THE STA 


HKRHEEHHHKKEKKKRKEHKHKE RUN TABLE- 


Vv 
HRENE OHH KHHEHEE 


* * 
*% RETURN * 
* % 


HHEKKEHEHHHEKKKEE GHEE 
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Chart EH. COMPLETE OBJECT CODE 
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G0496 
HHEHHKAD HH HHH HHH 
* STA GEN % 
* FINISH * 
* * 


HKREKHKHKHEHHEHRKKEH 


MH HH 
* * 
* B2 *—> 
* ¥ 
HRHHH 


#049603 . 
8 


<< 


2 * © 
e* DATA *e 
0% ON DO *. NO 
*. LOOPS OPEN e *—— 
Fe ROLL 0% 


He o* 
He 2% Vv 
* YES HHH 
| * es 
| * FER * 
| ¥ % 
HHH 
Vv 
HHKKHCD HK KKKHHHHE 
* % 
* MOVE * 
*#GROUP OFF ROLL * 
* *% 
* % 
HHH KKH HH HHH HHH EH 
| 
| 
| 
Vv 
o*e #049601 
D2 Xe HRHKRKO ZSHHKHHHHH KE 
o* Xe * gs 
e* POINTER = *. NO * ¥ 
*.eLABEL OF THIS «*————>* REPLACE OROUP * 
Re STMT o* * ON ROLL * 
a He x * % 
He o% HHH H HHH HHH HK HK HH 
* YES 
| HMHEHK | 
* * 
| *# E3 *—> 
* x | 
| HHHK | 
Vv #049602 V 
HHKKEE DKK KKH KEKEK HKHHHHE SRM HH HEHEHE 
* * * *% 
% CONSTRUCT *% * RESET TEMP * 
*DOGO CLOSING CODE* * POINTERS AND * 
* ON CODE ROLL *% * ACCUMULATORS * 
* * * 
HHH HH HH HH HE EH HE HE Ce ee ee eS 
| | 
{ | 
| | 
V | 
HH HH | 
% * | 
* B2 * | 
* *% Vv 
HHH HHEHKE SRHHHKHHHE 


* * 
* RETURN * 
% % 


HKRHKKHHKKKHRKMKHE HE 


Chart 09. 


wihdkC en enenee es 
*PCH NMLMPY~FLA2* 
[et ee 
*#PCH NMLIST TAL * 
* WORDS HLDNGe * 


* POINTERS * 
TH ME HH REE 


PHASE 5 - IEYEXT 


GO0381 
HEE A DHE EEN E EEE 
* + 
* EXIT PASS * 
* * 


HEME HHHEEENE HEE 








Vv 
HRHREREDH PD KEHHKEHHHHEE 


* * 
* * 
* INITIALIZE * 
* * 
* + 
* * 


HRKEHKKERHKEHHHE HEE 


G0382 
HHH HEC DH HEH RE EH 
*#¥PCH TMP/CN-FAA2* 
ee ee ee ee ee ee ee 
>* PCH TEMP STGE * 
* AND CONSTANT * 
* AREA * 
HM EE HE HEH EH 


| 
GO0383 Vv 
HEHEHE D HH REKKKHEEN 


*PCH ADCON- FBA2* 
HK HH — HH KBE 
* PCH RLD CARDS * 
* FOR TEMP AND * 
* CONST AREA * 
MEK EKER EERE REESE 


Vv 
* 





F2 ke 
o* * 

o* OBJECT 
Re LISTING 
* eREQUESTEDe* 

%e * 

He ot 
* YES 


e 
*. NO 
e *#-——_ 


¢— 


HH HHH HG 2H HH HE HE 


* PRINT * | 
HEADING FOR 
* LISTING * 


HEKKMEHKEHKRHKHEE 


|e 


G0884 v 
HEEKREHD EHKEKKEKERE 
#PCH CD RL— *#### 
H—-KR— H—H—H—K—-KH—H—*K 
#PCH ALL OBJECT * 
* CODE AND LST * 
* PCH RQD ESDS * 
HHH MMHG HEH HH HHH 


{ 

v 
HEHEHE JOREKKEEHEEE 
*RECORD STORAGE * 
* REQUIRED FOR ¥* 
* OBJECT MODULE * 
* 
+t 
* 





* AND PRINT MSG 
* 
MEK RHEE EEE EKER E 


HREX 


ek 
> 
1é*) 
* ok ok 


HEHE 


GO0399 Vv 
HEHEHE A ZH REK EEE HEE 


*PCH BSE RL-FDA2* 
%—H— H— H— H— KH— H— H— HK 
* PCH OBJ MOD. * 
*BASE TABLEsRECe* 
+ RLO INFO * 
HH HH MH HE KH RHK HHH HHH 





G0400 Vv 
HK HH ZH HH HEH 
*PCH BR RL- FEA2* 
HAH — 4-H KH HH 
*PCH OBJ MODULE * 
*BR TABLE»sRECORD* 
* RLD INFO * 
HH KE EE 


x<— 


e eo 
c3 Fe 
e*SUBPROGRAM *« NO 
Ke ARGUMENTS «t#——_ 





G0402 Vv 
HERE DZ HEHE KEE EEK 


*PCH SP ARG-FFA2* 
%— H— H— K— H—H— H— H— EK 
*PCH SUBPRGR ARG* 
* LISTS RECORD * 


® RLD INFO * 
HK EKER EERE 


fo 


| 

| 

G0403 Vv 
HRHERE ZH RR HER EKE 
*PCH GBL SP-FGA2* 
re ee ee 
* PCH SUBPRGR- ¥* 
* ADDR AND RCD ¥* 
¥ RLD INFO * 
HREEMEE EERE REE EEE 


G0404 Vv 
HEE ZRH HE 
*#PCH LIB RL—-FHA2* 
K—%— HH — KH HAHA 
* COMPL SUBPRGR * 
* AORESSES AND * 
* RECORD RLD * 
Perret eT ere Se eee. 


| 
| 
| 


G0405 v 
HEEERG IHR KNKRRHHKE 
*PCH ADCON- FIA2* 
%—KX— HR — HHH — KH HE 
* PCH ADR CONST * 
*AND RECORD RLD * 
* INFG * 
KHRKKKHEEKRKHE EE EEX 

| 
{ 


G0416 v 

HHH LY HE I HH 
*#PCH RLD RL—FUJA2* 
%e— ¥%— H— H— KE— KE — KH HK— FH 
*PCH OBJECT MOD * 
* RLD CARDS * 
* * 
Ce ee ee ee ee ee 





| 

G0424 Vv 
HME H J ZRH HEH HEHE 
*PCH END CD-FKA2* 
H—HR—H—H— KK — HH 
* PUNCH OBJECT #* 
*MODULE END CARD*® 
* * 
HHH HEH HEHE HEN 


HHHE 


ek OK 
ia) 
> 

ke OK 


HEHE 





HH HH 

* 

* Ba * 

* * 

HEKH 

Vv 

HEHHHBG HHH HEHEHE 
¥ * 
¥ ¥ 
* RELEASE ROLLS * 
¥ * 
* * 
EEE TE EE EE HE 


l 
Vv 
HHREHH 
*O3 * 
* A2* TO INVOCATION 
* * PHASE 
* 
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Chart FA. 
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PUNCH CONSTANTS AND TEMP STORAGE 


GO0382 


HHEHK AD HHH HH KEE 


* PUNCH TEMP * 


*AND CONST ROLL * 
*% * 


HMHRKHKEHHRHKHKHHHE 


Vv 

HRHHKKEGHD HHH HH HEHEHE 
% * 
* INITTALIZE * 
* LOCATION * 
*COUNTER AND TXT* 
* CARD * 


HHHHKEKHKKEHHEKKRKE 


<——. 


HKHHEEHEKCDHKEKKHKEKKEKE 
*. * 
* INITIALIZE * 
*POINTER TO TEMP* 
*¥AND CONST ROLL * 
* TOP # 
WHKHHHHHKHHHHHKRKKE 


HH HH 
% | 
* D2 #—>| 
¥ * | 
HHH V 
#038201 o*e 
D2 He 
o* Ke 
o* ROLL He 
Ke PROCESSED o* 
ee ot 
He ex 
%¥e o* 
NO 


econ 


HRHHEHHE D HHH HKKE 


* * 
* * 
* INCREMENT * 
* POINTER * 
* * 
HEM HH HH HH HEHE HEH 


| 


Vv 
HHRKKHKE PHKKKKEKKEEH 
*MOVE NEXT GROUP* 
* FROM ROLL TO * 
# BUFFER» PUNCH: * 
* IF CARD # 
* COMPLETE * 
MHEG HRHEKEHHKHKEKREEK 


| 
Vv 
H HHH 
* D2 * 
* 


KEKE 


YES 


HRHKEKHKD ZFHRHHKHKEKHHE 


* PUNCH * PUNCH PARTIAL 
> ANY PARTIAL TXT CARD 
* CARD %. 
KHHHEHEKHHKKKHHHEH 
| 
| 
| 
| 
i 
{ 
| 
v 


HHKEE ZH HHH HH HHH 
* * 
* RETURN: * 


HKRHKHHKHEKHKHKKKKEK 


Chart FB. 


#038301 o* 
C2 


PUNCH ADR CONST ROLL 


GO0383 


HHH AD RHKHHHKER 


* * 
* PUNCH ADR * 
* 


* CONST ROLL 
HERR EE EER KEE 


| 
| 


Vv 
HHEKEHEBHP HKKHEKKEKEEN 
* DETERMINE BE- * 
¥GINNING ADR OF * 
*% TEMPORARY STG * 
*% 
% 
% 


* AND CONST 


* AREA 
RENEE HEE REEE EER 


HHH 
* * 

* C2 #-> 
* * 

HH HH Vv 


Fe 
e* * 


e 
o* DATA *e NO 


*#.ON ADR CONST -* 


HEKEHOD D HERE EEE 
* INITIALIZE * 
* LOCATION * 
* COUNTER FROM ¥* 
* POINTER AND * 
* BEGINNING ADR * 
HM HHH EH HHH RHEE 


Vv 
HHHHHKE DEK RHHERH EE 
* PLACE AREA * 
* CODE FROM * 
* ADR CONST * 
* ROLL ON * 
* * 
* * 





RLO ROLL 
HH HEH HHH HEHE 





| 


v 
HRHEKEKEFPKKRHKKHKERE 
% * 
* SET LOC CTR * 
*INTO RUNG 1 OF * 
* RLD ROLL * 
* * 
KRHKEKHEHBKEKHKRHEHHKEKEKN 


Vv 
HHEHKG I EHH HE KEE 
* PUT LOCATION * 
* FROM ADR * 
* CONST ROLL * 
* IN OUTPUT * 
* AREA * 
HHH HEHEHE HE EH RKEE 


| 
| 
| 


Vv 
KHREKREKHD HHEKKEKEREE 


* PUNCH PARTIAL * 


CARD 
* * 


HNKEKEKHKKEHEHHEKKKEE 


I 


| 


Vv 
HHH 


*% * 
* CD * 
% * 
HH HK 


* 
>* 
*% 


HHH CZK EH HHH 


RETURN 


HEHEHE MKHRHEMREEKE 


wo TO TXT CARD 


PUNCH PARTIAL 
TXT CARD 


* 
* 
* 
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Chart 
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FC. PUNCH OBJECT CODE 


G0384 
HK ADHEHHRERKERE 
* * 
* PUNCH * 
* CODE ROLL * 


HKKEKKKRHEHEKRKHH HHH 


| 

| 

I 

Vv 
HHKKN GOK HHH HHEK 
* INITIALIZE * 
* LOCATION * 
* COUNTER + * 
* CODE ROLL * 
* POINTER * 
HHH MI HH HHH HEE 


c2 %e 
o* Ke 
e*DATA STILL *e NO 
e TO BE o* 
*.PROCESSEDe* 
¥e o* 
* * 


* 


* 
I 
Vv 
HHH HH OD HH HHH HEE HK 
* GET * 
* NEXT * 
* INSTRUCTION ¥* 
* * 
* * 
* * 


HKEKEKHKKHEKREKKHKE 


*x< 


E2 Fe 
0% ke 
o* A #e YES 
#e STATEMENT o* 
*. NUMBER o* 
He o* 
oe o% 
* NO 


o% *. 
o* A *. YES 
#ePROGRAM BREAKe* 
Ke o* 
Ke o* 
Heo ot 
i: NO 


o* *. YES 
*. A CONSTANT o* 
*, o* 
He o* 


o* %e 
o* AN *%e YES 
%#e INSTRUCTION .* 
e a%® 
He e* 
ee 9 ¥ 
1 NO 


“x<— 


e* He YES 
*eLIST FLAG ON «* 
He e* 
Ke o* 
%e oe 
* NO 


HHH 
* * 
* Ba * 
* * 

HHH 


Vv 
oX*%e 
B4 Fe 
e *ADDRESS¥ 
e* CONSTANT *e YES 
*%. DEFINITION «* 


Xe o* 
te o* 
%e of 
* NO 
i 
<— 
Vv 
a*%e 
HHEKREKHKHC FRHHHHHKKEHHEE C4H He 
e* A He 
* PUNCH ANY * o* LABEL. *.e YES 
> REMAINING *. INSTRUCTION e* 
*PARTIAL CARD * He o* 
He o* 
HHEKKEHRKEKKHHERHHH Re Pe 
| | NO 
| | 
| V 
Vv HKEKHHE DG EHR KEKRKEKEKE 


HHHKOD ZH HEE HHREH 


* * * MOVE INSTR TO * 
* RETURN * QUTPUT AREA 
* * *PUNCH IF FULL* 
HRHEHRKKKEKKRKKKMHE 
HEH KHEHKRHKHRHHE 
| 
| 
| 
v 
KHHEX 
* x* 
* C2 * 
KKRHHHKE FHREHHKHKHHE * * 
* * HRHHK 
* * 
>*STORE IT IN STA*® 
* NUM * 
* * | 
KEKHKKHMKKKKKHHHKKE Vv 
HEH 
* * 
* CD * 
* * 
HHHE 


HHH EKHEL ZEKE HEHEHE HHH HE G HEH HEHEHE 
* REINITIALIZE *#* 
# PUNCH ANY * *LOCATION COUNTR* 
> REMAINING —_———>* TO 1ST FULL * 
*PARTIAL CARD * *WORD AFTER TEMP* 

* + CONST AREA * 
HRM KKEKHEK EE HEHEHE Vv 
% 





al 


HREKKHEKKEKRKKRKEE 


HHH KHHG SEHR HHH KEE 


*MOVE TO OUTPUT * 
> AREA PUNCH IF -4 
*CARD COMPLETE* 


HEH HHH HH HHH HE Vv 
HHH 
* C2 * 


HHH 


KEEREKH FER RKKHE KKK 
MOVE DATA TO 
* OUTPUT AREA * 
> PUNCH YF — 
* COMPLETE * 


| 
HKHEEKHKKRKEKKRKHE Vv 
* 


HH HH 
* * 
* C2 * 
* * 
HHHH 
KHER JZHHKHHRKHKEREK 
* * 
> LIST CODE -— 
* * | 
KEKKKKKKER HEHE Vv 
KHRE 
* * 
* B4 * 
* * 
HHH 


HREKE BH HKEKRKKEMRKERHE 


* * 
* STORE * 
>* LOCATION * 
* COUNTER * 
* * 
HHH HH HK KH HHH RHEE 


| 


re 


HHHHECSHERHKHEKEE 
* DEFINE LABEL * 
* ON BRANCH * 
>* TABLE ROLL I= * 
* NECESSARY PUT ¥* 
* IN LIST AREA * 
HERKEN KEK EK KKEERKEE 


Chart FD. 


SWEEP BASE 
BRANCH ROLL 


PUNCH BASE TABLE 


GO0399 


HHEKADP KHHEHKHREEE 
* PUNCH * 
* BASE ROLL * 
* * 


KRHHHRKKKHKRKRKRHKEH 


ee a 


HRKHEEBH SC HRKNKRKRHKKHKHEREH 


* * 
* INITIALIZE * 
* BASE TABLE * 
* LOCATION * 
* COUNTER * 
HRHEHKHKHKHRKEKRKHEKENE 


me oe 


HHKEKHCD HHH HH HH HH 
* % 
* INITIALIZE * 
*POINTER TO BASE* 


* TABLE ROLL * 
* * 


HRHEHHHHEHKEREKKEHHE 


Vv 
HRHKHO DEKH KKHERH EK 
* # 
* INITIALIZE * 
*TXT CARD BUFFER* 
* * 
* * 
HKKKEHEK RHE HHH HH 


HH HH { 
% * 
*% EQ *-—> 
* ¥ 


| 
HHH Vv 
* 


G0400 o%. 
E2 He 
o* He 
o* ALL He 
He ROLL * 
# ePROCESSED.* 
ee eo * 
Ke eX 
* NO 
| 
{ 
| 
{ 
| 
Vv 
HHEHKEHEP DRHEHKHEKHEHH KE 
% * 
* INCREMENT * 


*POINTER TO ROLL* 
* * 


% % 
HEHEHE HHRHE KH 


<_< 


KHHEKEGDOHRERKKKKRHKEH 
* 


. 3 
* RECORD ESD * 
* 4+ LOC COUNTER * 
* ON RLD ROLL * 
. t 
% * 


HEREKRKHKKRHEKHEKEKHSE 


Vv 
HHH HHH D HHH HHH EH HH 


* % 
* MOVE GROUP TO * 
*BUFFER PUNCH IF*® 


* CARD COMPLETE * 
* * 


HEE HHKKHE HHH KHKHEME 


YES 


HRAHKHHE FREER KHKHKE 


% PUNCH * 
> ANY PARTIAL 
% CARD * 
HKHHKEHRKHNKRKHRHKHE 
| 
| 
| 
| 
| 
| 
| 
Vv 
HHREXF SRKRHHHHRHKEE 
Ht * 
+ RETURN % 
& 7 * 


HRHRKEKHKHKKHHHHHKHEE 
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Chart FE. PUNCH BRANCH TABLE 


GO0400 
HHA DH HEHHKKHKE 
* PUNCH * 
* BRANCH ROLL #* 
* * 


HRHHHEHEHE KEKE HEE 

| 

| 

{ 

| 

I 

Vv 
HHHHNHG DP HHKKEKRHKE 


* * 
* INITIALIZE * 
* BRANCH TABLE #* 
* LOC COUNTER * 
* * 
HHH HEH HHH HK HH KK 


| 


eS int crs intense antern 


HRHERHKCPKHRKKKHKHRKRKE 


* * 
* INITIALIZE * 
* POINTER TO * 
* BRANCH TABLE #* 
* ROLL * 
HERE KHKK KHER KE KEEE 


| 
| 
| 
v 


HHH HAO D HH EHR H EH HH 
* * 
SWEEP BASE % INITIALIZE * 


‘BRANCH ROLL 


*TXT CARD BUFFER*® 


% * 
* % 
HRHHHMHKHHRHRMRHEEHHKKHE 
HREEK | 
* *% 
* EQ *—> 
% % i 
HH HH Vv 
#040001 aes 
E2 He HKHKHEKE ZH KKK HHH HE 
o* *e 
o* ALL *. YES * PUNCH * 
%e ROLL . ¥—____———> ANY PARTIAL 
* «PROCESSED .* * CARD * 
eo e* 
ke ot KHMRKEKKHRKHEKHKKH 
* NO 


< carat Tan em Seta cream 


HEKEKF ORKKKEKHHEKE 


*% 
% 


* 
* 


* 
INCREMENT. * 


*POINTER TO ROLL*® 
% 


*% 


* 
% 
% 


| 


Ente note amine meee cme 


HEHE BHEAHRKKHKHK 


RETURN 


KRHKHHRKHKKHKHKEHKHE 


% 
* 
* 


KHEKHEKKEEHKHHKHRHKEKE 


| 

| 

Vv 
HHH HHRGD EHR HHH KE 
* % 
* RECORD ESD * 
*¥ AND LOC COUNTER* 
* ON RLD ROLL *% 


% : *% 
HEE KKHERAKRHEKHERHKK 


| 


| 





Vv 
HEH HHH DHE KH KHKEE 
* MOVE * 
* GROUP TO * 
* BUFFER», PUNCH * 
* IF CARD * 
* COMPLETE * 
HME HH HH HH HE KKH KE 
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Chart FF. 


#40203 * 


G0402 


HHEHHADHHKHKH KEE 
* PUNCH * 
* SPROG ARG * 
* ROLL * 


HKREKEEKTHEKKEKRKEAE 


te eaten tee 


HHHHHE BG KHRKHKHHEKHE 
* INITIALIZE LOCe* 
* COUNTER» TXT * 
* CARD OUTPUT * 
* AREA AND * 
* POINTER * 
HHH HKKRHHHRHHKHH HEH 
HHEHEK | 
* % 
* C2 *—> 
* *% 
HHEK Vv 


#40201 o*%e 


o* Re 
o* ALL He 
ee ROLL o% 
*ePROCESSED.* 
te e* 
* * 
NO 


e e 
* 
Vv 

HHEEK DP KEKHHKHKKHEH 

* % 


* INCREMENT * 
*POINTER TO ROLL* 
* * 


* * 
KREME KEK HKKHEN 


* 
NO 


* 
| 
| 
| 
| 
Vv 
He 
F2 Ke 
o% He 

o* TEMP ¥e 
¥e AND CONST .* 

*. POINTER o* 


He e* 
He o* 
* NO 
| 
| 
| 
#040204 Vv 
HHEEKEKEKEGCOKHKEKKHKKEKHEH 
* % 
% COMPUTE * 
* APPROPRIATE ¥* 
+ LOCATION * 
% * 
HHMHKHMHH RH MMH HHH HE 


| 


ie oe 


< 
HHEHEHD RHEE HH HEHE 
* * 
% * 


*RECORD RLD INFO* 
* * 


* * 
HEHEHE HEME RK HE 


tooo 


HHRKEE JD REKKEREREEK 
% * 
* INSURE * 
* MINUS* TAG * 
* MARK * 
* % 
* *% 


HMHEKKEKRRKKHEKEKE 


Vv 
HH HKHK DHE KE EREX 
* * 
* MOVE * 
®DATA TO QUTPUT *———,. 
* AREA * 
* * 


HEKKHKHKRHHKEKRHKKERE 


YES 


HEKE 


PUNCH SUBPROGRAM ARGUMENT LISTS 


HEE KHHRC SHR HEE MER HER 


* PUNCH ANY * 
> REMAINING 
*PARTIAL CARD * 


HREKKMHKKHHKHHRKE 


<————_ — 


HEHE DZHRHHKRKHHRHKE 
* * 
* RETURN * 
ea 3 


HHH KHMHHHHEHH MH HE 


HHKKHE 3K KEK HEHEHE 
* MOVE GROUP * 


* TO TXT * 
>* QUTPUT AREA ¥* 
* PUNGH IF * 


* CARD COMPLETE * 
HK HHH HHH EK HE 


HHRKHHRE FHKE EHH EH 
*% * 
* COMPUTE * 
>* APPROPRIATE ¥* 
* LOCATION * 
* * 
HKHEHHHKHEHRHKKHHKHEH HH 


*% 


Vv 
HHH 


% 


* C2 * 


* 


HUME 


* 


TXT CARD 
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Chart FG. PUNCH SUBPROGRAM ADDRESSES 


G0403 

HHHHAD HHH KHHKE 
* PUNCH * 
* GLOBAL SPROG * 
* ROLL * 
HH EH HH HH HEH HE HH HM HH 

| * # 

| * B4 # 

| * '  # 

| HH HH 

{ | 

| 

Vv #040302 Vv 
HHKHHE GD HM HEHEHE HEH HH IG HH HH HH HH 
* *% * * 
* FLIP THE * * STORE * 
* GLOBAL SPROG * *LOCATION ON RLD* 
* ROLL * * ROLL * 
* * ed * 
HK KEKHKKKHHK KKH KHEE HUH KM KH KEM KHH 


Vv 
oX%e #040304 V 
C2 Ke HMMRHMHECGHKKHHHEHKHE 
eo* t. KHHEKCZRRKHEKHHKEH * MOVE . 7 
o* DATA *. NO * * * O TO OUTPUT * 
*. ON THE ROLL .*—-—————>* RETURN * *# AREA, PUNCH IF * 
He o* * * % CARD COMPLETE * 
He o* HHHHKHHKKMHHHEHK * * 
Re e* HHH HH HH HH HH HH EH HEH 
* YES 
| 
| | 
| | 
| | 
| V 
Vv xs 
HHHHKEDDKKKHHKHKHHHKKE D4 Ke HHHHHKEOOHHKHKHKHKHKKKE 
* * eX Ke 
* TURN OFF * 7% DATA *. NO * PUNCH * 
*  SUBPROGRAM * %. ON THE ROLL «*————————> ANY PARTIAL 
*FLAGs MOVE WORD* He o* * CARD * 
* OFF * He o% 
MHKHKEKHKRHRKMRKHEKHHH He eo HHRKHREHKHMHKHKRMHEE 
| * YES | 
| { 
| | 
{ | 
| <—_—_—_—_-—__-_-- I | 
| | 
#040301 Vv | 
HHEHKKE D HH KKHKHEHH Vv 
* * HHHKESHHHHERKKEEE 
* MOVE ESD * * * 
* NUMBER TO RLD * * RETURN * 
* ROLL * * * 
* * HHRHHEKHHKHHRNRHKHHKHE 
HRHHRMRHHHKRHRHRKRHRHRKHKRE 


Ca 


HHHEKE DHRHHKKHHKHHE 
* % 
* DETERMINE * 
* LOCATION OF * 
*SUBPGM ADDRESS * 
* * 

* 


HRHAMKMRMRKHKRKHKRHHEE 


G2 He 
o* He 
o* *e YES 
*.SUBPROGe FLAGe *——, 
Ke ON o% | 
Xe e* j 
He Vv 
* NO HH HH 
| * * 
* Ba * 
| aaae 


| KH 


Vv 
HHHKNHHD HHEHKHHHHKE 
* * 
* STORE * 
* LOCATION IN * 
* LOCe COUNTER * 
* * 
MHRHRMKRH EH HRHHHHHRKEK 


<—— 


HHH SD RH EH HH HEHE 
* * 
* INITIALIZE * 
* OQUTPUT AREA, * 
* TURN ON * 


* SUBPROGe FLAG * 
HHH KEKE RH EH EEE EK 
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Chart FH. 


GO0404 
HHHKAD HH EHKHHEE 
* PUNCH USED * 
* LIBRARY * 
* ROLL * 


HRHRKEKKERHEHRHHREHEE 


Vv 
HRHEKEHKEHSKEHHRMHHHHEE 
* x 
* FLIP * 
* THE USED LIB ¥* 
* ROLL * 
* * 
HEKHMHEHHEHRERHKHKEKRHKEH 


Vv 
ote 
c2 Ke 
o* He 
o* *e NO 
*#.e DATA ON THE o* 
¥e ROLL o* 
ke o* 
He a F 
* YES 
| 
Vv 
HHEEEKO DHE KNEE RE EK 
* TURN OFF % 
* SUBPROGRAM * 
*FLAGs MOVE WORD* 
* OFF ROLL * 
*% * 


HEE HEK HEH KHHHHEE 


HEKE | 
* * 
* E2 *—> 
* * | 
HHEK Vv 
o* 


E2 
eo % He 
o* ESD He 
*.= 0 (IGNORE) -* 
He o* 
He o* 
He eX 
* NO 


He 


YE 


C—— 


#40402 
HH KK DEK KHKHHH EE 


MOVE 
ESD NUMBER TO 


* 
* 
* 
* RLD ROU 
* 


* 
*% 
# 
* 
# 
* 


HHHEHKHHEMEKHHHHHK HE 


Vv 
HHH HH GD HHH HHH HHH 
* 


DETERMINE 
LOCATION OF 
FUNCT ION 


ADDRESS 


* 
* 
* 
* 
* 
KHER HH HHH EHH HHH HH 


* 
* 
* 
* 
* 


S 


Vv 
oe 
H2 Ke 
o% Ke 
o* ¥e YES 
*eSUBPROGR FLAG. *——4 
ee ON «* | 
Ke o* | 
We e* Vv 
* NO HEHE 
| ¥ 
| * B4 
| % 
j HHH 
I 
Vv 
HHREHEH SD HEM KKH HH KH 
* * 
* STORE * 
*LOCATION IN LOC 
* COUNTER * 
* * 
ee ee 
| 
| 
Vv 
HHHKKK OHHH HHRKHHHEH 
* INITIALTZE * 
* OUTPUT AREAs * 
* TURN ON * 
®SUBPROGRAM FLAG* | 
* * { 
HMR KKK HK HHH KH HE Vv 
HHH 
* 
* B4 
* 
HHH 


eK OK 


COMPLETE ADDRESSES FROM LIBRARY 


HEH HC ZRH HH HEHEHE 
* 
>* 
* 
HHH HM KH REE 


RETURN 


HERHKE SH RHEE HHH 
* 
® MOVE NEXT 
>* WORD OFF + 
* DESTROY 


% 
HHH HK HHH HME HHH HHH 


MRUEHE 
* * 
* Ba * 
* * 
HHH 
{ 
{ 
{ 
Vv 
HKHHKKKQYS HRHKKKRKEHEKRE 
% * 
* STORE * 
*LOCATION ON RLD* 
% ROLL * 
* * 


HKEEKKGHEREHE ER HEHE 


Vv 
HEHEHE RHKRKHKEKHHEE 
* MOVE * 
% x 0 TG SUTPUT * 
* *AREA»s PUNCH IF * 
* * CARD COMPLETE * 
* * 
HHH HH HH HHH HHH HE 
HHKH 
* * | 
* D4 #—>| 
* * | 
HHH Vv 
#40404 o*. 
D4 Ke 
«* Ke 
o* *. NO 
He DATA ON THE oe ¥— 
¥e ROLL o* 
He o% 
He ok 
* YES 
{ 
| 
Vv 
HHH 
* % 
* ED *® 
cd * * 
# HHH 
* 
4 
x | 
* | 
* Vv 
HH HH 
* * 
* DG * 
* * 
HHH 


Section 2:3 


HHKRKHKEO SF HKHEKHHHHAEEN 


> 


* 


* 
* 
* 


PUNCH * 


ANY PARTIAL 


* CARD 


* 


HHH KHEMEEHEKKHH 


| 


< — ee ee 


HREKESHHHHKEHKHE 
% 

RETURN * 
*% 


HKRKHKHKKGHKEKKHHKRK 
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Chart 


122 


FI. PUNCH ADDRESS CONSTANTS 


G0405 
HHH ADHHKKHKE HEX 
* 
* PUNCH * 
* ADCON ROLL * 


ee ee ee ee ee 


HRHRHRH 


* B2 *—>| 


HHREX 


x<— 


0% *%e NO 
*¥eDATA ON ROLL o* 
Xe e* 
He ex 
He eo % 
1 YES 


~——. 


KRHEKKCPDHHEKKHEKKHEKK 
* * 
* SET AREA * 
*CODE FROM LAST * 
* WORD ON ROLL * 
% * 

* 


HKHERHKHHKHKKRH HEHE 


Vv 
HHRHEKD DHHKKEKK HEHE 
* SET ADDRESS * 
* WHERE CONST #* 
*1IS TO BE LOADED* 
*FROM NEXT WORD * 
* ON ROLL * 
KEK KKK HHH KKH HK KHER 


te oe 


HHHEHHHEPHKHKKKHKHNRE 


* MOVE INFO * 
TO OUTPUT 
AREA AND PUNCH* 


HRHEHKKHEKRKEHEHE 


| 


Vv 
HREHEE DEKH HEHE HHH 


* * 
* SET * 
* UP RLD ROLL * 
* ENTRY % 
* * 
x * 


HRHEKEHKMEKHHKHEKKH 


* 
>* 
*% 


HHHEKBBZGHKHKEHRKHKH 


RETURN 


HRHEKHKKKHK HH HHH 


¥ 
* 
* 


Chart FJ. PUNCH 


GO565 


HHH AL RHEE HEE 
* ORDER AND * 
* PUNCH RLD * 

* 


* ROLL 
HERE KEKE HEE ERE 


HREE 


PUNCH RLD * 
ROLL 


#41615 








RLD CARDS 


HHKERKAD REKEHHEREHHE 


* * 
* SORT * 
>* RLD CARDS ON ¥* 
* ROLL * 
+ * 
ee ee ee ee ee 


Co 


HHEKEEBYD REE KHEHHKHE 


*SET ESD NUMBER 
*FROM AREA CODE 
>* AND PUT IN 

* RLDO CARD 

* IMAGE 
HEHEHE KHMER 


* 
# 
* 
* 
* 
* 


#41601 v 


HRHEHKHKECD KEKRHHEKRHHEHE 
* SET * 
* LAST LOAD * 
>* ADDRESS FROM * 
* 
* 
% 


* RLD GROUP 
* 


ee ee ee 


o* He 
*eMORE DATA ON o* 
He ROLL o* 
Re e* 

Xe eo & 

| YES 


NO 


E2 

o* 

e* ESD NO = 
*. TO PREVIOUS 


*. NO 


«*#——y 


THE SORT PUTS 
ENTRIES WITH LIKE 

ESD NUMBERS TOGETHER>s 
ADRe CONST AND 

TEMP AND CONST ROLLS 
ARE USED AS TEMP 
STORAGE 


HHHHG HD FH HH HE HE HEH HE 


* PUNCH * 
> REMAINING 
* DATA * 


HH IH TE HH HH HH HE 


< ee ee ee oe 


HHHHE FHKE HEHEHE 


* ANDO UPDATE 


HHEE 
*% % 
* BS * 
* *& 
HEH H 
| 
l 
Vv 
#41603 o%e 
B5 He 
e*% He 
o* #. YES 
*#.ROOM ON CARD .#-——4 
He o* 
He ox 
He o* 
* NO 
| 
| 
| 
| 
l 
v 


* * 


PUNCH AN RLD 
* CARD * 


{ 

| 

| 

| 

| 

| 

| 

| 

| 

HH HHH CS HHH | 
| 

| 

| 
KK RE | 
| 


#41604 Vv 
HHHEKEDHKKRKRKKHHHEHK 
#PLACE PREVIOUS * 
* VALUE IN CARD * 
* MARKED FOR NO *# 
* CONTINUATION ¥* 

% 
rg 


® AND UPDATE 
HHH KKH KKH EEK 


x << 


ES %e 
«* ROOM He 


* * o* *. YES YES e*FOR NEW ESD*. 
* RETURN * r—>*eROOM ON CARD .*—-—4 r——*e NOe ON CARD .* 
* * He o* | ee 0% 
HHH HH HH HHH HE HE HE HH He e% | He e* 
| He o * { Vv Ke o* 
HHH * NO [eee e * NO 
* * { {* x | 
* EQ * | I* B82 * | 
* ¥ | | * * | 
3 Ht HH | Hee 
| 
Vv | Vv 
HEMHMKE GH HEH HHH HHH | KHHKHKE SH HH MK HH HHH 
* % 
% * | * % 
PUNCH AN RLD | *® SAVE NEW ESD % 
* CARD * { * NOe * 
| * * 
KM MH HH HH HH HK | HEH KK KH HHH HHH HEH 
| | | 
= J | 
| | 
| | 
| | 
#41602 V Vv 
HKHKNG AHHH HH HHH HH KHHH GCS HHH HHH HH HHH 
*¥PLACE PREVIOUS, * 
* VALUE IN CARD * * % 
* MARKED FOR * PUNCH AN RLD 
* CONTINUATION * * CARD * 
* 
x 


KHHNKKHHKKKKKKKE 
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HHKHHEKKHHHHEEK 


Compiler Operation 123 


Chart FK. PUNCH END CARDS 


G0424 


HHH AD HHH HEHEHE 


% * 
# PUNCH * 
* END CARD * 
HHHMHHRHHHRMRHHHKEK 


a ee ee ee eee 
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* *% 


*SET UP END CARD* 
* * 


* * 
HHHKKKHHKKHKKEKHEK 


< a oe co 


HRHEHKKHRHCDKHHKKKKRHKKE 


€ * 


PUNCH END CARD 
% & 


KKEHKEKRHKHHEKK HE 


< ene RE cece OE ae 


HEHEHE DPKEKHKHHKKKE 
* 
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73 . 
HHKHKRKHKKKKHKHKRHKE 


124 


Chart FL. 


G0564 


HEHH ADHERE EHR EH 
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* 
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*.DATA ROLL -* 
Re o* 

Re ao & 
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Vv 
HHH HEC D ERK EH RHEHE 
* * 
¥CALCULATE NEXT * 
*  AODRESS IN * 
* TEMPORARY * 


* STORAGE AREA * 
HR EEE EK EE MEEK 


HRHEX 

* * 

* D2 *—> 
* * 
HRHRE 

#056401 v 

HHKEKED SHREK KEEEHKE 
* MOVE LOCATION * 
* OF POINTER * 
* FROM NAMELIST * 
*  MPY DATA * 


* ROLL * 
HHH HEHE HH EHH HHH 


{ 
V 
o*e 
E2 Ke 
o* Be 
# He 


e 
*.e ANYTHING o* 
*. MOVED .* 





%e o* 
%e 0 
* YES 
Vv 
HUH DEKH HH HEE 
* * 


*INITIALIZE TXT * 
* CARD TO LOAD * 
* LOCATION * 


* INDICATED * 
HK HHH HHH EH HEHE 


Vv 
HRRERG2 EHH HEHE 
* SET * 
* UP RLD ENTRY * 
* %;FOR WORD IN * 


*NAMELIST TABLE * 
* * 


REKREKEHERHHKEHRHEHE 


| 
| 
| 


Vv 
HEHEHE HEHE HH REE 
* * 
*MOVE MULTIPLIER*® 
* TO TEMP AND * 
* CONST ROLL * 
* * 
HEHE EEE RHEE HEEEER 


c—— 


HHH JD HH RHEE 
* * 
* MOVE * 


*POINTER TO TXT * 
* CARD IMAGE * 
% * 
HEHEHE REE REE 


HH HH 
* Ba * 


HEE 


PUNCH NAMELIST TABLE 


NO 


NO 


POINTERS 


* 
>* 
* 


* 


>* 
* 


HRHEHKABD GREER KHEE 


RETURN 
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HHHKE ZRH HH HEE 


RETURN 
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* 
* 
* 


* 
* 
* 
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* * 
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* CARD * 
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HHH CG REE KEHHEE 
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* TEMPORARY * 
*STORAGE POINTER*® 
% * 
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Vv 
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* DD * 
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This appendix deals with the POP lan- 
guage, the language in which the FORTRAN IV 
(G) compiler is written. The parts of the 
appendix describe this language in the 
following way: 


e The figcst part describes the POP 
instructions, which are grouped accord- 
ing to their functions. 


e The second part describes the labels 
used in the routines of the compiler. 


e The third part discusses the assembly 
and operation of the compiler, as it is 
affected by the use of the POP lan- 
guage. This part ends with a cross- 
reference list giving the mnemonic for 
each instruction, the hexadecimal code 
which represents it, and the instruc- 
tion group in which it is described. 


POP INSTRUCTIONS 


For the purpose of describing their 
operation, the POP instructions have been 
divided into groups according to the pri- 
mary function which they perform. Where a 
particular POP instruction pertains to more 
than one group, it is described in the 
group which discusses its most important 
functions. 


In the descriptions of the instructions, 
the following notational conventions are 
employed: 


1. Parentheses are used to indicate “the 
contents of;" thus (G) stands for the 
contents of storage address G, where 
all addresses are fullword addresses. 


2- The arrow is used to indicate trans- 
mission in the direction of the arrow; 
(G) + 1--> G reads: the contents of 
storage address G, plus one, are 
transmitted to storage address G. 


refers to the 
etc., words on 


3. Wn  (n=1, 2,3,0e-) 
BOTTOM, BOTTOM-1, eee 
the WORK roll. 


It should be noted that in many cases 
the address field, G, of the instruction 
contains a value other than ae storage 
address (for instance, a roll name). In 
most of these cases, the symbolic reference 
which is used is defined in the program by 
means of an EQU card. 


APPENDIX A: THE POP LANGUAGE 


The mnemonic codes for the POP instruc- 
tions are of the form IEYxxx. In the 
following discussion, the characters IEY 
are omitted from the mnemonics in the 
interest of ease of reading, and only the 
xxx portion of the code appears. 


TRANSMISSIVE INSTRUCTIONS 


The instructions described in this sec- 
tion are primarily involved in moving 
information from place to place in storage. 
APH G: Assign and Prune Half 
The upper halfword of (WO) --> the 
lower halfword of G, where G is a 
storage address; the upper halfword 
of G remains unaltered; the BOTTOM 
of the WORK roll is reduced by 
four, thus pruning WO. 

ARK G: Assign Relative to Pointer and Keep 
(WO) --> P + (G), where P is the 
address defined by the pointer in 
W1 and Gis a storage address; the 
BOTTOM of the WORK roll is reduced 
by four, thus pruning the value 
assigned and keeping the pointer. 
ARP G: Assign Relative to Pointer 

(wO) --> P + (G), where P is the 
address defined by the pointer in 
Wi and G is a storage address; the 
BOTTOM of the WORK roll is reduced 
by eight, thus pruning the current 
WO and Wi. 

ASK G: Assign to Storage and Keep 

(WO) --> G, where G is a storage 
address; the BOTTOM of the WORK 
roll is unchanged. 

ASP G: Assign to Storage and Prune 

(WO) --> G, where G is a storage 
address; the BOTTOM of the WORK 
roll is reduced by four, thus prun- 
ing the current WO. 

BOP G: Build on Polish 

The control driver G is built on 
the POLISH roll, where the G field 


of the instruction is the lower 
eight bits of the ADDRESS portion 


Appendix A: The POP Language 127 


CAR G:; 


CLA G: 


CNT G: 


CPO G: 


CRP G: 


EAD G? 
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of the desired driver. (The TAG 
field of the pointer contains zero, 
and the OPERATOR field contains 
255.) 


Copy and Release 


Copy roll G, where G isa roll 
number, to roll T, and release roll 
G (1.e., restore it to its  condi- 
tion before the last reserve); the 
number T is found in WO; the BOTTOM 
of the WORK roll is reduced by 
four. If roll G is in the reserved 
state when this instruction is 
executed, the instruction sets its 
BOTTOM to (TOP) minus four; if the 
roll is not reserved, BOTTOM is set 
to (BASE). 


Clear and Add 
Clear WO; (G) --> WO, where Gis a 


storage address; the BOTTOM of the 
WORK roll is unchanged. 


Count 

The number of words on roll G --> 
WO, where Gis a roll number; the 
BOTTOM of the WORK roll is 


increased by four. 
Copy Plex On 


The plex pointed to by the pointer 
in WO is copied to roll G, where G 
is the number of the target roll, 
except for the first word of the 
plex (which holds the number of 
words in the plex, exclusive of 
itself). The BOTTOM of the WORK 
roll is reduced by four, thus prun- 
ing the pointer. 
roll G is increased by four for 
each word moved; the BOTTOM of the 
Original roll is unchanged. 


Copy Relative to Pointer 


Copy roll S to roll G, where G is a 
roll number, beginning with the 
group indicated by the pointer in 
WO, to the BOTTOM of the roll. The 
roll number S is also provided by 
the pointer in WO. The BOTTOM of 
roll S is decreased by the number 
of bytes moved. The BOTTOM of roll 
G is increased by the number of 
bytes moved. The BOTTOM of the 
WORK roll is unchanged; thus, the 
pointer remains. 


Extract Address 


The ADDRESS portion of (G) --> WO, 
where G is a storage address; the 


The BOTTOM of. 


EAW 


ECW 


EOP 


ETA 


FET 


FLP 


FRK 


FTH 


BOTTOM of the WORK roll is 


increased by four. 
Effective Address to Work 


G --> WO, where G is ae storage 
address; the BOTTOM of the WORK 
roll is increased by four. 


Effective Constant Address to Work 


where G is a_e storage 
address which refers to a constant 
under a constant base. The BOTTOM 
of the WORK roll is increased by 
four. 


G -——> wo, 


Extract Operator 


The OPERATOR portion of (G) --> WO 
(right adjusted), where G is a 
storage address; the BOTTOM of the 
WORK roll is increased by four. 


Extract Tag 

TAG portion of (G) --> TAG portion 
of WO, where G is a storage 
address; the BOTTOM of the WORK 
roll is increased by four. 

Fetch 


(G) --> WO, where G is a_ storage 
address; the BOTTOM of the WORK 
roll is increased by four. 


Flip 


Invert the order of roll G, where G 
is a roll number, word for word. 


Fetch Relative to Pointer and Keep 


(P + (G)) 
address 


--> WO, where P is’ the 
defined by the pointer in 


WO and G is a storage address; the 
BOTTOM of the WORK roll is 
increased by four; thus, the 


pointer remains in W1. 
Fetch Relative to Pointer 
(P + (G)) --> WO, where P is the 


address defined by the pointer in 
WO and Gis a storage address; the 


BOTTOM of the WORK roll is 
unchanged; thus, the pointer is 
destroyed. 
Fetch Half 
The lower halfword of (G) --> upper 
halfword of WO, where G is a 


storage address; the lower half- 


IAD G: 


IOP G3: 


ITA G: 


ITM G: 


LCE G: 


LCF G: 


zero; the 
roll is 


word of WO is set to 
BOTTOM of the WORK 
increased by four. 


Insert Address 


The ADDRESS portion of (G) --> the 
ADDRESS portion of the pointer in 
WO, where G is a storage address; 
the BOTTOM of the WORK roll is 
unchanged. 


Insert Operator 


G --> OPERATOR portion of the 
pointer in WO, where the G field of 
the instruction is the desired 
OPERATOR value; the BOTTOM of the 
WORK roll is unchanged. 


Insert Tag 


TAG portion of (G) --> TAG portion 
of the pointer in WO, where G is a 
storage address; the BOTTOM of the 
WORK roll is unchanged. 


Insert Tag Mode 


Mode portion of the TAG field of 
(G) --> mode portion of the TAG 
field of the pointer in WO, where G 
is a storage address; the BOTTOM of 
the WORK roll is unchanged. 
Last Character Error 

The last character count and the 
address G--> ERROR roll, where G 
is the address of the message for 
the error. The count of errors of 
the severity associated with the 
message is increased by one, and 
the MAX STA ERROR NUMBER (which 
indicates the highest severity 


level of errors for the present 
statement) is updated as required. 


Last Character Error if False 
If (ANSWER BOX) = false, the last 
character count and the address 
G --> ERROR roll, where G is’ the 
address of the message for the 
error. The count of errors of the 
severity associated with the mes- 
sage is increased by one, and the 
MAX STA ERROR NUMBER is updated as 


required. If (ANSWER BOX) = true, 
the instruction does nothing. 

LCT G: Last Character Error if True 
If (ANSWER BOX) = true, the last 
character count and the address 
G --> ERROR roll, where G is the 
address of the message for the 


LGP G: 


LSS Gs 


MOC G: 


MON G3: 


NOG G3: 


NOZ G: 


error. The count of errors of the 
severity associated with the mes- 
sage is increased by one, and the 
MAX STA ERROR NUMBER is updated as 
required. If (ANSWER BOX) = false, 
the instruction does nothing. 


Load Group from Pointer 


Loads the group specified by the 
pointer in WO into SYMBOL 1, 2, and 
3, DATA 0, 1, 2, 3, 4, and 5. The 
number G is the number of bytes to 
be loaded; if G=0, the entire group 
is loaded. The BOTTOM of the WORK 
roll is unchanged; hence, the 
pointer remains in WO. 


Load Symbol from Storage 


Loads the (G and Gt4), where G is a 
storage address, into SYMBOL 1, 2, 
and 3, and DATA 0. 


Move on Code 


G halfwords, where G is an even 
number, are to be moved from _ the 
WORK roll to the CODE roll. A word 
containing a special value in the 
first two bytes and the number of 
words transferred in the last two 
bytes are first placed on the CODE 
roll. G/2 words of information are 
then moved from the WORK roll to 
the CODE roll; the BOTTOM of the 
CODE roll is increased by four for 
each word placed on the roll; the 
BOTTOM of the WORK roll is reduced 
by four for each word moved from 
the roll. A location counter is 
increased by the number of bytes of 
object code placed on the roll. 


Move on 


(WO) --> roll G, where G is the 
roll number; the BOTTOM of roll G 
is increased by four; the BOTTOM of 
the WORK roll is decreased by four. 


Number of Groups 


The number of groups on roll G --> 
WO, where G is the roll number; the 
BOTTOM of the WORK roll is 
increased by four. 


Nonzero 
A nonzero value --> G, where G is a 


storage address. 
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PGO G: 


PGP G: 


PLD G: 


PNG G: 


POC G: 


PST G3: 


SWT G: 
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BOTTOM of 


Place Group On 


A group from SYMBOL 1, 2, and 3 and 
DATA O, 1, 2, 3, 4 and 5 --> roll 
G, where Gis the roll number, by 
group status; the BOTTOM of roll G 
is increased by group size. 


Place Group from Pointer 


The group in SYMBOL 1, 2, 3, DATA 
0, 1, 2, 3, 4, and 5 is placed ona 
roll according to the pointer in 


WO. The number G is the number of 
bytes to be moved; if G=0, an 
entire group is moved; the BOTTOM 


of the WORK roll is unchanged. 


Precision Load 


(G and G+4) --> MPAC 1 and MPAC 2, 
where G is a storage address. 


Pointer to New Group 


Builds a pointer to the first byte 
of the next group to be added to 
roll G, where G is the roll number, 
and places the pointer in WO; the 
the WORK roll is 
increased by four. 


Place on Code 


The data located at storage address 
G+4 and following is to be moved to 
the CODE roll. The number of half- 
words to be moved is’ stored in 
location G and is an even number. 
A word containing a special value 
in the first two bytes and the 
number of words of data in the last 
two bytes is first placed on the 
CODE roll. The indicated data is 
then moved to the CODE roll, and 
the BOTTOM of the CODE roll is 
increased by four for each word 
placed on the roll. A location 
counter is increased by the number 
of bytes of object code placed on 
the roll. 


Precision Store 


(MPAC 1 and MPAC 2) --> G and Gt4, 
where G is a storage address. This 
instruction performs a doubleword 
store. 


Switch 


Interchanges (WO) and (G), where G 
is a storage address; the BOTTOM of 
the WORK roll is unchanged. 


ZER G: Zero 


0 --> G, 


where G is a_ storage 


address. 


ARITHMETIC AND LOGICAL INSTRUCTIONS 


The following instructions are primarily 
designed to perform arithmetic and logical 
manipulations. 


ADD G: 


AFS G: 


AND G: 


DIM G: 


DIV G: 


TOR G: 


LLS G: 


Add 


(G) + (WO) --> WO, where G is a 


storage address; the BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of WO are 
destroyed. | 


Add Four to Storage 


(G) + 4 --> G, where G is a storage 
address. 


And 

(G) AND (WO) --> WO; that is, a 
logical product is formed between 
(G) and (WO), and the result is 
placed in WwO. The BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of WO are 
destroyed. 

Diminish 

(G) - 1--> G, where G is a storage 
address. 

Divide 

(WO) / (G) --> G, where G is a 
storage address; the remainder, if 
any, from the division is lost; a 


true answer is returned if there is 


no remainder; the BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of WO are 
destroyed. 


Inclusive Or 


The inclusive OR of (WO) 
where G is a storage location, is 
formed, and the result is placed in 
WO. The BOTTOM of the WORK roll is 
unchanged; hence, the initial con- 
tents of WO are destroyed. 


and (G), 


Logical Left Shift 


(WO) are shifted left G places; the 
result is left in WO; bits shifted 
out at the left are lost, and 
vacated bit positions on the right 
are filled with zeros. 


LRS Gs: 


MPY G:; 


SUB G: 


TLY G: 


Logical Right Shift 


(wO) are shifted right G places; 
the result is left in WO; bits 
shifted out at the right are lost, 
and vacated bit positions on the 
left are filled with zeros. 


Multiply 

(G) * (WO) --> WO, where G is a 
storage address; the BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of wo are 
destroyed. 

Product Sign and Prune 

The exclusive OR of (WO) and (G), 
where G iS a storage location, 
replace the contents of G; the 


BOTTOM of the WORK roll is reduced 
by four, thus pruning WO. 


Subtract 

(WO) - (G) --> WO, where G is a 
storage address; the BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of wo are 
destroyed. 

Tally 


(G) + 1 --> G, where G is a storage 
address. 


DECISION MAKING INSTRUCTIONS 


These instructions inspect certain con- 


ditions and return either a true or false 
answer inthe ANSWER BOX. Some of the 
instructions also transmit stored informa- 


tion from place to place. 


CSA G:; 


LGA G3: 


Character Scan with Answer 


If G = (CRRNT CHAR), the scan arrow 
is advanced and a true answer is 
returned; otherwise, the scan arrow 
is not advanced and a false answer 
is returned. 


Load Group with Answer 


The group from the BOTTOM of roll 
G, where G is the roll number and 
roll G has been flipped, is loaded 
into SYMBOL 1, 2, 3, DATA 0, 1, 2, 
3, 4, and 5 (as many words as 
necessary); if the roll is empty or 
if the group is a marker symbol, a 


MOA G: 


OSA G3: 


SAD G: 


SBP Gs: 


SBS G: 


false answer 1s returned; other- 
wise, a true answer is returned; 
the BOTTOM of roll G is reduced by 
group size. 


Move off with Answer 


where G is the roll 
a false answer is 
returned. Otherwise, the BOTTOM of 
roll G is reduced by four, pruning 
the word moved; the BOTTOM of the 
WORK roll is increased by four; a 
true answer is returned. 


If roll G, 
number, is empty, 


Quote Scan with Answer 


If the quotation mark (sequence of 
characters) beginning at storage 
address G (the first byte in the 
quotation mark is the number of 
bytes in the quotation mark) is 
equal to the quotation mark start- 
ing at the scan arrow, advance the 
scan arrow to the next active 


character following the quotation 
mark, and return a true answer; 
otherwise, do not advance the scan 


arrow and return a false answer. 


Set on Address 


If G = ADDRESS portion of the 
pointer in WO, return a true answ- 
er; otherwise, return a false 
answer. 


Search by Stats from Pointer 


Search the roll specified by the 
pointer in WO, beginning with the 
group following the one specified 
by the pointer for a group which is 
equal to the group in the central 
items SYMBOL 1, 2, 3, etc., accord- 
ing to the group stats values 
stored at locations Gt4& and G+t8 
(these values are in the same order 
as those in the group stats 
tables). The roll number multip- 
lied by four is stored at location 
G. If a match is found, return a 
true answer, replace the pointer in 
WO with a pointer to the matching 
group, and continue in sequence. 
If no match is found, returna 
false answer, prune the pointer in 
WO, and continue in sequence. This 
instruction is used to continue a 
search of a roll according to group 
stats values other than those nornm- 
ally used for the roll. 


Search by Stats 
If the roll, whose number mulitip- 


lied by four is in storage at 
location G, is empty, return a 
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SCE Gs: 


SCK G3 


SFP G: 


SLE G: 
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by roll statistics. 


false answer. Otherwise, search 
that roll against the central items 
SYMBOL 1, 2, and 3 and DATA QO, 1, 
2, 3, 4, and 5, as defined by the 
group stats values stored at loca- 
tions G+4 and G+8 (these values are 
in the same order as those in the 
group stats tables); if a match is 
found, place a pointer to _ the 
Matching group in WO, increase the 
BOTTOM of the WORK roll, and return 
a true answer; if no match is 
found, return a false answer. This 
instruction is used to search a 
roll according to group stats 
values other than those normally 
used for that roll. 


Set if Character Equal 


If G = (CRRNT CHAR), return a true 
answer; otherwise, return a false 
answer; in neither case is the scan 
arrow advanced. 


Set on Character Key 


If (CRRNT CHAR) displays any of the 
character keys of G, where G isa 
character code whose bit settings 
describe a group of characters, 
return a true answer; otherwise, a 
false answer is returned; in neith- 
er case is the scan arrow advanced. 


Search from Pointer 


Search the roll specified by the 
pointer in WO, beginning with the 
group following the one specified 
by the pointer in WO, for a group 
which is equal to the _ group in 
SYMBOL 1, 2, 3, DATA 0, 1..., etc., 
If a match is 
found, return a true answer, 
replace the pointer in WO with a 
pointer to the matching group, and 
jump to G, where G must be a_ local 
address. If no match is found, 
return a false answer, prune _ the 
pointer in WO (reduce the BOTTOM of 
the WORK roll by four), and con- 
tinue in sequence. 


Set if Less or Equal 


If (WO) < (G), where G is a storage 
address, a true answer is returned; 
otherwise, a false answer is 
returned. The comparison made con- 
Siders the two values to be signed 
quantities. 


SNE G: 


SNZ G:;3 


SOP G: 


SPM G3: 


SPT G: 


SRA G? 


SRD G: 


STA G3: 


Set if Not Equal 


If (WO) # (G), where G is a storage 
address, a true answer is returned; 
otherwise, a false answer is 
returned. . 


Set if Nonzero 
If (G) # O, where G is a storage 


address, return a true answer; 
otherwise, return a false answer. 


Set on Operator 


If G = OPERATOR portion of the 
pointer in WO, return a true answ- 
er; otherwise, return a false 
-answer. 


Set on Polish Mode 


If the mode portion of the TAG 
field of the (G) = the mode portion 
of the TAG field of the pointer in 
P1, where Gis a storage addess, 
return a true answer; otherwise, 
return a false answer. 


Set on Polish Tag 


If the TAG field of the (G) = the 
TAG field of the pointer in P1, 
where G is ae storage address, 


return a true answer; otherwise, 
return a false answer. 


Search 

If roll G, where G is the roll 
number, is empty, return a false 
answer; otherwise, search roll G 


against the central items SYMBOL 1, 
2, and 3 and DATA O, 1, 2, 3, 4, 
and 5, as defined by the roll 
statistics; if a match is found, 
place a pointer to the matching 
group in WO, increase the BOTTOM of 
the WORK roll, and return a true 
answer; if no match is found, 
return a false answer. 


Set if Remaining Data 
is the roll 


If roll G, where G 


number, is not empty, return a true 
answer; otherwise, return a false 
answer. 


set on Tag 


If the TAG portion of (G) = the TAG 
portion of the pointer in WO, where 
G is a storage address, return a 
true answer; otherwise, return a 
false answer. 


STM G: 


Set on Tag Mode 


If the mode portion of the TAG 
field of the (G) = the mode portion 
of the TAG field of the pointer in 


WO, where G is a storage address, 
return a true answer; otherwise, 
return a false answer. 
JUMP INSTRUCTIONS 
The following instructions cause the 
normal sequential operation of the POP 
instructions to be altered, either uncondi- 
tionally or conditionally. See the sec-— 


tions “Labels"™ and “Assembly and Operation" 
in this Appendix for further discussion of 
jump instructions. 


CSF G: 


JAF G: 


JAT G3: 


JOW G: 


JPE G:; 


Character Scan or Fail 


advance the 
active 
jump to 


If G = (CRRNT CHAR), 
scan arrow to the next 
character; otherwise, 
SYNTAX FAIL. 


Jump if Answer False 


If (ANSWER BOX) = 
where G is either a global or a 
local address; otherwise, continue 
in sequence. One of two operation 
codes is produced for this instruc- 


false, jump to G, 


tion depending on whether G is a 
global or local label. 

Jump if Answer True 

If (ANSWER BOX) = true, jump to G, 
where Gis either a global or a 
local address; otherwise, continue 


in sequence. One of two operation 
codes is produced for this instruc- 
tion depending on whether G isa 
global or a local label. 


Jump on Work 


If (wO) = 0, decrease the BOTTOM of 
the WORK roll by four and jump to 
G, where G is either a global ora 
local address; otherwise, reduce 
word 0 by one, --> WO, and continue 
in sequence. One of two operation 
codes is produced for this instruc- 
tion, depending on whether G is a 
global or a local label. 


Jump and Prepare for Error 
The following values are saved in 
storage: the location of the next 
instruction, the last character 


count, the BOTTOM of the EXIT roll, 
and the BOTTOM of the WORK roll. 


JRD 


JSB 


JUN 


QSF 


XIT 


G: 


G3 


G: 


G: 


The JPE FLAG is set to nonzero, and 
a jump is taken to G, which may 
only be a local address. 


Jump Roll Down 


This instruction manipulates a 
pointer in WO. If the ADDRESS 
field of that pointer is equal to 0 
(pointing to the word preceding the 
beginning of a reserved area), the 
ADDRESS field is increased to four. 
If the ADDRESS field of the pointer 
is equal to any legitimate value 
within the roll, it is increased by 
group size. If the ADDRESS field 
of the pointer indicates a location 
beyond the BOTTOM of the roll, the 
pointer is pruned (the BOTTOM of 
the WORK roll is reduced by four), 
and a jump is made to the location 
G, which must be a global address. 


Jump to Subroutine 


Return information is placed on the 
EXIT roll; jump to G, which is a 
global address. 


Jump Unconditional 


Jump to G, which is either a global 
or a local address. One of two 
operation codes is produced for 
this instruction, depending on 
whether Gis a global or a local 
label. 


Quote Scan or Fail 


If the quotation mark (sequence of 
characters) beginning at storage 
address G (the value of the first 
byte in the quotation mark is the 
number of bytes in the quotation 
mark) is equal to the quotation 
Mark starting at the scan arrow, 
advance the scan arrow to the first 
active character beyond the quota- 
tion mark; otherwise, jump to SYN- 
TAX FAIL. 


Exit 
Exit from the interpreter; the code 


which follows is written in 
assembler language. 


ROLL CONTROL INSTRUCTIONS 


These instructions are concerned with 
the control of the rolls used in the 
compiler. 
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POW G: Prune off Work 
Reduce the BOTTOM of the WORK roll 
by four times G, where G is an 
integer, thus pruning G words off 
the WORK roll. 


REL G: Release 

Restore roll G, where G is the roll 
number, to the condition preceding 
the last reserve; this sets BOTTOM 
to (TOP) reduced by four if the 
roll is reserved, or to (BASE) if 
the roll is not reserved; TOP is 
set to the value it had before the 
reserve. 


RSV G3: Reserve 


Reserve roll G, where G is the roll 


number, by storing (TOP) - (BASE) 
on the roll, increasing BOTTOM by 
four, and setting TOP to (BOTTOM); 


this protects the area between BASE 
and TOP, and allows ascending 
addresses from TOP to be used aS a 
new, empty roll. 


CODE PRODUCING INSTRUCTIONS 


These POP instructions construct object 
module code on the CODE roll. Each object 
module instruction constructed results in 
the placing of a 2-word group on the CODE 
roll. The instruction generated, in bi- 
nary, is left justified in this group. In 
the case of halfword instructions, the 
remainder of the first word is filled with 
ZECLOs™ The second word contains a pointer 
to the instruction operand, except in the 


case of 6-byte instructions when the last 
two bytes of the group contain the value 
ZECLO.™ 


BID G: Build Instruction Double 


The instruction indicated by G, 
where G is an instruction number 
which indicates the exact instruc- 


tion to be generated, is 


the CODE roll, where WO contains a 
pointer to the first operand and Wl 
contains a pointer to the second 
operand. The BOTTOM of the CODE 
roll is increased by eight. The 
BOTTOM of the WORK roll is reduced 
by eight; thus, both pointers are 


pruned. A location counter is in- 
creased by one for each byte of the 
instruction. 
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built on: 


BIM G: Build Instruction by Mode 


The instruction 
where Gis an 


indicated by 4G, 
instruction number 
which indicates the class of the 
instruction only. For example, 
LOAD INSTR as opposed to LE INSTR 
is built on the CODE roll, where WO 
contains a pointer to the second 
operand. A pointer to the accumu- 
lator which holds the first operand 
is contained in the variable CRRNT 
ACC. The instruction mode is 
determined by inspecting the TAG 
fields of the pointers; the BOTTOM 
of the CODE roll is increased by 
eight; the BOTTOM of the WORK roll 
is reduced by four, thus pruning 
the pointer. A location counter is 
increased by one for each byte of 
the generated instruction. 
BIN G: Build Instruction 
The instruction indicated by G, 
where G is an instruction number 
which indicates the exact instruc- 
tion to be built, is constructed on 
the CODE roll. The WORK roll holds 
from zero to three words of infor- 
Mation required for producing the 
instruction. For instructions 
requiring no operands, nothing 
appears on the WORK roll. For 
instructions requiring one operand, 
a pointer to that operand appears - 
in wo. For two operand instruc- 
tions, a pointer to the first 
operand appears in WO and a pointer 
to the second operand is in Wl. 
For input/output instructions, Wi 
holds a constant which’ becomes part 


of the instruction. For storage- 
to-storage move instructions, W2 
holds the length. The BOTTOM of 


the CODE roll is increased by eight 
to reflect the addition of the 
group. The BOTTOM of the WORK roll 
is reduced by four for each word of 
information found on that roll; 
thus, all the information is 
pruned. A location counter is 
increased by one for each byte of 
the instruction. 


ADDRESS COMPUTATION INSTRUCTIONS 


The POP instructions whose G fields 
require storage addresses may be used to 
refer to WORK roll groups, provided the 
storage address of the desired group is 
first computed. This computation must be 
performed at execution time, since the 
location of WO, for example, varies as the 
program is operated. The instructions in 
this category perform these computations and 
jump to the appropriate POP, which then op- 
erates using the computed address. 


WOP G: WO POP 


Compute the address of the current 
wO and jump to the POP indicated by 
G, where G is’ a POP instruction 
which normally accepts a_ storage 
address in its G field. 


W1P G: W1 POP 


Compute the address of the current 
W1 and jump to the POP indicated by 
G, where G is a POP instruction 
which normally accepts a storage 
address in its G field. 


W2P G: W2 POP 


Compute the address of the current 
W2 and jump to the POP indicated by 
G, where G is a POP instruction 
which normally accepts a storage 
address in its G field. 
W3P G: W3 POP 
Compute the address of the current 
W3 and jump to the POP indicated by 
G, where G is a POP instruction 
which normally accepts a storage 
address in its G field. 
W4P Gs: W4 POP 
Compute the address of the current 
W4 and jump to the POP indicated by 
G, where G is’ a POP instruction 
which normally accepts a storage 
address in its G field. 


INDIRECT ADDRESSING INSTRUCTION 


Indirect addressing is provided for POP 
instructions whose address fields normally 
require storage addresses by means of the 
following instruction. 

IND G: Indirect 

The address contained in the 
storage address INDIRECT BOX is 
transmitted to the POP indicated by 
G, where G is a POP instruction 
which requires a storage address in 
its G field, and a jump is made to 
that POP. The POP "G" operates in 


its normal fashion, using the tran- > 


smitted address. 


LABELS 


In the POP language, storage locations 
containing instructions or data may be 


named with two types of labels, global 
labels and local labels. Global labels are 
unique within each phase of the compiler 
(but not from one phase to another); these 
labels may be referred to from any point in 
the phase. Local labels are also unique 
within each phase (but not between phases); 
however, these labels may be referred to 
only within the global area (that is, the 
area between two consecutive global labels) 


in which they are defined. 


GLOBAL LABELS 


The global labels which appear ona 
System/360 assembler listing of the compil- 
er are distinguished from local labels in 
that the global labels do not begin with a 
pound sign. Most of the global labels are 
of the form Gdddd, where each d isa 
decimal digit and the 4-digit value dddd is 
unique for the global label. Labels of 
this form are generally assigned in ascend- 
ing sequence to the compiler routines. All 
remaining global labels are limited to a 
length of seven characters. 


In contrast, the routine and data names 
used throughout this publication are 
limited only to a length of 30 characters. 
A comment card containing the long name 
used here precedes the card on which each 
global label is defined. In addition, the 
longer name appears aS a comment on any 
card containing a POP instruction which 
refers to the global label. 


Example: 


G0336 STA GEN FINISH 
GO0336 IEYMOA GO494 MOA DO LOOPS OPEN ROLL 


Explanation: The second card shown defines 
the global label G0336. The first card, a 
comment card, indicates the longer name of 
the routine, STA GEN FINISH. The second 
card contains a reference to the label 
GO494; the longer form of this label is DO 
LOOPS OPEN ROLL, as indicated by the 
comment. 


Occasionally, several comment cards with 
identical address fields appear in sequence 
on the listing. This occurs when more than 
one long label has been applied to a single 
instruction or data value. The long labels 
are indicated in the comments fields of the 
cards. 
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Example: 
* ACTEST Ac TEST 
* ACTEST TESTAC 


ACTEST IEYSOP GO0504 SOP FL AC OP MARK 


Explanation: The three cards shown define 
the global label ACTEST. One long form of 
this label is AC TEST, as indicated by the 
comment on the first card. The second card 
indicates that the name TESTAC has also 
been applied to this location, and that it 
also corresponds to ACTEST. 


LOCAL LABELS 


All local labels consist of a pound sign 
followed by six decimal digits. If the 
preceding global label is of the form 
Gdddd, the first four digits are identical 
to those in the global name. The remaining 
two digits of the local label do not follow 
any particular sequence; they are, however, 
unique in the global area. 


The local label is defined by its 
appearance in the name field of a card 
containing a POP or assembler language 
instruction. 


Example: 
* G0268 PROCESS SCALAR ROLL 
G0 268 IEYSRD G04%32 SRD SCALAR ROLL 


#026811 IEYJOW #026821 
#026802 IFYITA G0359 ITA CED TAG MARK 


Explanation: The global label G0268 is 
defined by the second card in the sequence 


shown. The next two cards define, respec- 
tively, the local labels #026811 and 
#026802. In addition, the third card in 


the sequence contains a reference to the 
local label #026821, which is presumably 
defined elsewhere within the global area 
shown here. 


ASSEMBLY AND OPERATION 


The compiler is assembled with each POP 
instruction defined as a macro. Unless 
"Quick Link" output has been designated to 
the macro by means of the assembler 
instruction SETC ‘QLK', the resulting code 
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consists of two 1-byte address’ constants 
per POP instruction. This 16-bit value 
represents an 8-bit numeric Operation code 


and an 8-bit operand or relative address. 


The definition of the 8-bit operand or 
relative address varies according to the 
POP instruction used. Roll numbers appear 
in this field for instructions requiring 
them. For instructions which refer to 
storage locations relative to CBASE (see 
"Compiler Arrangement and General Register 
Usage") or to other base addresses, the 
word number relative to the appropriate 
base is used. The format for jump instruc- 
tions is discussed in the following 
paragraphs. 


When Quick Link is specified, machine 
language instructions are generated for the 
following POP instruction. (See "Assembler 
Language References to POP Subroutines. ") 


POP INTERPRETER 


The assembled POP code is interpreted by 
a short machine language routine, POP 
SETUP, which appears with the POP subrou- 
tines at the beginning of the compiler. 


POP SETUP inspects each pair of address 
constants in sequence, and, using the 8-bit 
Operation code as an index into the POP 
jump table, a table which correlates opera- 
tion codes for the POPs with the addresses 
of the POP subroutines, transfers control 
to the appropriate POP subroutine. 


Thus, on encountering the hexadecimal 
value 081A, POP SETUP indexes into the POP 
jump table (labeled POPTABLE) at the eighth 
byte, counting from zero. The value found 
at this location is 0158 (hexadecimal); 
this is the address, relative to the base 
of the POP jump table, of the POP subrou- 
tine for the POP numbered 08 (IEYSUB). 
When this value is added to the beginning 
address of the POP jump table, the absolute 
address of IEYSUB is produced, and POP 
SETUP performs a branch to that location. 


IEYSUB then operates, using the relative 
address 1A (which it finds in general 
register 7, ADDR), and returns via POPXIT, 
register 6; in this case the return is to 
POP SETUP, which then continues with the 
next POP in sequence. The register POPADR 
is used to keep track of the location of 
the POP being executed. 


This 
rupted by means 


sequential operation can be inter- 
of POP Jump (branch) 
instructions, which cause an instruction 
other than the next in sequence to be 
operated next. The XIT POP instruction 


also alters the sequence by causing the 
interpreter to release control, performing 
a branch to the assembler language instruc- 
tion following the XIT. This device is 
employed to introduce assembler language 
coding into the compiler routines when this 
is more efficient than the use of POPs. 
Assembler language sequences sometimes ter- 


minate with a branch to POP SETUP, so that 
it may resume the execution of POP 
instructions. 


ASSEMBLER LANGUAGE REFERENCES TO POP 
SUBROUTINES 


In some of the routines of the compiler, 
the operation of POP SETUP is bypassed by 
assembler language instructions which make 
direct reference to the POP subroutines. 
In these sequences, a pair of machine 
language instructions performs the function 
of a Single POP instruction. For example, 
the instructions 


LA ADDR, ONE-CBASE (0, 0) 
BAL POPXIT, FETO 
of the PoP 


accomplish the function 


instruction 
IEYFET ONE 


but bypass the operation of POP SETUP. The 
IEYFET routine, (referred to by its label 
FETQ) returns, via POPXIT, to the next 
instruction. Note that the first instruc- 
tion of the pair sets ADDR to the correct 
value for the operand of the IEYFET opera- 
tion; this would be done by POP SETUP if it 
interpreted IEYFET ONE. 


GLOBAL JUMP INSTRUCTIONS 


The labels referred to in POP global 
jump instructions, jump instructions which 
branch to global labels, always end with 
the character J. These global labels refer 


to the global jump _ table, a table whose 
fullword entries contain the relative 
addresses of global labels which are the 


targets of branches. Each phase of the 
compiler has a global jump table. The 
table is labeled JUMP TABLE. 

References in POP global jump § instruc- 
tions to the global jump table are 
assembled as relative word addresses in 
that table. Each entry in the table con- 
tains the address, relative in bytes to 
CBASE, of the label whose spelling is 
identical to that of the global jump table 
entry except that it does not include the 
terminal J. 


Thus, the instruction IEYJUN G0192J is 
assembled as 5002, for example, where the 
global jump table begins: 


GO075T | 5A0 | 
}-------- { 

GO111g | 752 | 

G0192g B02 


{ 
t 
! 
1 
! 
| 
{ 
{ 
ween comms emma enhes seen 


On encountering this instruction, POP SETUP 
loads its address field (02), multiplied by 
four (08), into the register ADDR. It then 
jumps to the POP subroutine for IEYJUN. 


The ITEYJUN subroutine uses ADDR as an 
index into JUMP TABLE, finding the value 
BO2. This value is placed in the register 
TMP and a branch is made to the location 
defined by the sum of the contents of TMP 
and the contents of CONSTR, which holds the 
location CBASE. Thus, if the location 
CBASE is 10B0, the location branched to is 
1BB2, the location of the routine labeled 
G0192, and the instruction at that location 
is operated next. 


Since the POP subroutines for global 
jumps branch directly to the target loca- 
tion, the instruction at that location must 


be a machine language instruction rather 
than ae POP. Moreover, all jump target 
routines which contain local jumps must 


reset POPADR to reflect the new location. 
Thus, routines which are jump targets) and 
which are written in POPs begin with the 
instruction 


BALR POPADR, POPPGB 


which sets POPADR to the location of the 
first POP instruction in the routine and 
branches to POP BASE, the address of which 
is held in POPPGB. At POP’ BASE, the 
contents of POPADR are saved in LOCAL JUMP 
BASE, POPXIT is set to the beginning loca- 
tion of POP SETUP, and POP SETUP begins 
operating. For the sake of brevity, this 
instruction is coded as 


BALR A,B 
in some routines. 


Routines in which the POP instructions 
have been replaced by pairs of assembler 
language instructions and which contain 
local jumps begin with the instruction 


BALR A,0 
Or 
BALR POPADR, 0 
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instead of the instruction given above, 
Since the branch to POP SETUP is not 
desired. 


Because global jump targets begin with 
this machine language code, it is not 
possible for POP instructions to continue 
in sequence into new global routines. When 
this operation is intended, an IEYXIT or an 


IEYJUN instruction terminates the first 
routine. 
LOCAL JUMP INSTRUCTIONS 

POP local jum instructions, jump 


instructions which transfer control out of 
the normal sequence to local labels, must 
occur in the same global area as the one in 


which the local label referred to is 
defined. 
The address portions of POP local jump 


instructions are assembled to contain the 
distance in halfwords from the beginning of 
the global area plus two to the indicated 
local label. This value is a relative 
halfword address for the target, where the 
base used is the location of the first POP 
instruction in the global area. 


Example: 
Decimal Symbolic Hexadecimal 
Location Label Instruction Instruction 
100 GO245 BALR A,B 
102 TEYCLA G0566 062A 
120 #024503 IEYLGA G0338 9A12 
140 IEYIUN #024503 5809 


138 


Explanation: The local jump instruction 
illustrated at location 140 is assembled so 
that its address field contains the loca- 
tion of the label #024503 (120), relative 
in halfwords to the beginning location of 
the global area plus two (102). Thus, the 
address field of the IEYJUN instruction 
contains the value 09. 


When the POP local jump instruction is 
interpreted, the contents of the location 
LOCAL JUMP BASE are added to the address 
field of the POP instruction to produce the 
absolute address of the jump target. LOCAL 
JUMP BASE is set to the beginning address 
of the global area plus two as a result of 
the BALR instruction which begins the glob- 


al routine; this function is performed at 
POP BASE, as described in "Global Jump 
Instructions." 


When local jumps are performed directly 
in machine language, the relative address- 
ing described above is also used; in this 
case, however, the base address is in the 
register POPADR as a result of the BALR 
instruction heading the routine. 


POP instruction mnemonics are listed in 


Table 8. 


Table 8. 
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Mnemonic 


ADD 
AFS 
AND 
APH 
ARK 
ARP 
ASK 
ASP 
BID 
BIM 
BIN 
BOP 
CAR 
CLA 
CNT 
CPO 
CRP 
CSA 
CSF 
DIM 
DIV 
EAD 
EAW 
ECW 
EOP 
ETA 
FET 
FLP 
FRK 
FRP 
FTH 
IAD 
IND 
IOP 
TOR 
ITA 
ITM 
JAF 


JAT 
JOW 
JPE 
JRD 
JSB 
JUN 


LCE 
LCF 


POP Instruction Cross-Reference List 
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Instruction Group 
Decision Making 


Instruction Group 
Arithmetic/Logical 
Arithmetic/Logical 
Arithmetic/Logical 


Transmissive 
Transmissive 
Transmissive 
Transmissive 
Transmissive 


Code Producing 
Code Producing 
Code Producing 


Transmissive 
Transmissive 
Transmissive 
Transmissive 
Transmissive 
Transmissive 


Decision Making 


Jump 


Arithmetic/Logical 
Arithmetic/Logical 


Transmissive 
Transmissive 
Transmissive 
Transmissive 
Transmissive 
Transmissive 
Transmissive 
Transmissive 
Transmissive 
Transmissive 
Transmissive 


Indirect Addressing 


Transmissive 


Arithmetic/Logical 


Transmissive 
Transmissive 


Jump (global) 


Jump (local) 


Jump (global) 


Jump (local) 


Jump (global) 


Jump (local) 
Jump 
Jump 
Jump 


Jump (global) 


Jump (local) 
Transmissive 
Transmissive 
Transmissive 


Mnemonic 
LGA 
LGP 
LLS 
LRS 
LSS 
MOA 
MOC 
MON 
MPY 
NOG 
NOZ 
PGO 
PGP 
PLD 
PNG 
POC 
POW 
PSP 
PST 
OSA 
QOSF 
REL 
RSV 
SAD 
SBP 
SBS 
SCE 
SCK 
SFP 
SLE 
SNE 
SNZ 
SOP 
SPM 
SPT 
SRA 
SRD 
STA 
STM 
SUB 
SWT 
TLY 
WOP 
W1P 
W2P 
W3P 
W4P 
XIT 
ZER 
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Transmissive 


Arithmetic/Logical 
Arithmetic/Logical 


Transmissive 


Decision Making 


Transmissive 
Transmissive 


Arithmetic/Logical 


TransmisSive 
Transmissive 
Transmissive 
Transmissive 
Transmissive 
Transmissive 
Transmissive 
Roll Control 


Arithmetic/Logical 


Transmissive 


Decision Making 


Jump 
Roll Control 
Roll Control 


Decision 
Decision 
Decision 
Decision 
Decision 
Decision 
Decision 
Decision 
Decision 
Decision 
Decision 
Decision 
Decision 
Decision 
Decision 
Decision 
Arithmet 
Transmis 
Arithmet 
Address 
Address 
Address 
Address 
Address 
Jump 
Transmis 
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Making 
Making 
Making 
Making 
Making 
Making 
Making 
Making 
Making 
Making 
Making 
Making 
Making 
Making 
Making 
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ic/Logical 
Sive 
ic/Logical 
Computation 
Computation 
Computation 
Computation 
Computation 
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APPENDIX B: ROLLS USED IN THE COMPILER 


This appendix describes each of the 
rolls used in the compiler, giving the 
group size, the structure and content of 
the information in the group, and the roll 
number. Each roll is described as it 
appears in each of the phases of the 
compiler. This information is useful in 


observing the actions taken by the various 
phases, since a significant portion of the 
work performed by the compiler is the 
construction and manipulation of informa- 
tion on rolls. 


The rolls are ordered in this appendix 
as they are in storage, by roll number. In 
some cases, a single, number is assigned to 


several rolls. In these cases, the rolls 
with identical numbers are presented 
chronologically, and the overlay of one 


roll on another indicates that the previous 
roll is no longer required when the new 
roll is used. The group stats values for 
rolls with the same number are always 
identical. 


The roll number is the entry number in 
the roll statistics tables for the appro- 
priate set of statistics; that is, the roll 
number multiplied by four is the relative 
address of the correct entry in the group 
stats, BASE, BOTTOM, and TOP tables. 


ROLL O: LIB ROLL 


This roll contains one group for every 
name by which a library subprogram can _ be 
referred to in the source module. The roll 
is contained in IEYROL and remains 
unchanged in size and in content throughout 
compilation. 


The group size for the LIB roll is 

twelve bytes. Each group has the form: 
4 bytes 

ai A Sa i a A am aS 1 
| <-—---—--—----—-—--- subprogram-———--—-—--———--—-—— | 
Eases aaa aaa a ei 1 iecaacetsee aun ager ci { 
| ------- name-—————-——— >| TAG | 0 | 
}--------- 1---------- +---------- 4--------- | 
| TAG | flag | no. arguments | 
Reaper Sure areee ee ei eye Bh ee eee te J 


The TAG appearing in the seventh byte of 
the group provides the mode and size of the 
FUNCTION value, if the subprogram is a 
FUNCTION. The TAG in byte 9 indicates the 
mode and size of the arguments to the 
subprogram. For FUNCTIONs, the flag (byte 
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10) indicates either in-line (including 
which generation routine must be used) or 
that a call is to be generated (when the 
flag is equal to zero). 


This roll is used and then destroyed by 
Allocate. 
ROLL 1: SOURCE ROLL 


This roll holds source module statements 
while they are being processed during the 
operations of Parse. The roll is not used 
by any later phase of the compiler. 


Source statements appear on this. roll 
one card column per byte. Thus, each card 
of a source statement occupies 20 groups on 
the roll. The group size is four bytes. 
The statement | 


A(I,J)=B(I, J) #2+C (I,J) ##2 


would therefore appear on the SOURCE roll 


as: 
4 bytes 

(SS =S=s= 7 acne aaa eee anaemia 1 
| ob | b | b | b | 
}-------—- }---------- f---------- $--------- i 
| ob | b | A | ( | 
}--------- $---------- 4---------- +—-------- 
| I | ‘ | J {| ) | 
}--~------4----------}----------}---------J 
L = | B | ( | I | 
|-—-------- ----—---------------4---------} 
| | J | ) | * | 
}---------4----------4----------}---------] 
| 2 | + | Cc | ( | 
-—————-—— fen anne {——-----—- }--------- 
| | ‘ | J | )- | 
}--------- fo--------- f---------- $--------- | 
[| * | * | 2 | ob | 
|-~------- $--------—- }---------- 4--------- i 
| ob | b | b | ob | 
Peete ee a) Seren eee ee Hist eo tse 5 (es AR ne EY | 
| : | 
| ° | 
| : | 
= ea aera {ose eS = { 
| ob | b | b | ob | 
eae ee ee ene ae ae ee eet ete J 


where b stands for the character blank, and 
a total of 20 words is occupied by the 
statement. 


ROLL 2: IND VAR ROLL 


This roll holds a pointer to the induc- 
tion variable (the DO variable) used in 
each DO _ 1oop. The pointer specifies the 
appropriate group on the SCALAR roll. Each 
pointer is placed on the roll by Parse as 
the DO loop is encountered in the source 
module. When the loop is closed, the 
pointer is deleted. 


The roll is not used in subsequent 
phases of the compiler. The group size for 
the IND VAR roll is four bytes. 


ROLL 2:  NONSTD SCRIPT ROLL 


This roll exists only in Unify; the 
information held on it is taken from the 
SCRIPT roll. The group size for the NONSTD 
SCRIPT roll is variable, with a minimum of 
20 bytes. Each group on the roll describes 


an array reference. 


The format of the 
group is: 


NONSTD SCRIPT roll 


oo ae que ee ane mm EE A NO EE EY CURD UE ITT ENED NE TED EE ED RE GUE AND ERED ENED ANTS EES NED ED EDN NAS AD OO EY ED ED TO 


oe ene an em coe ee RO RED EERE NRE ED NEN ET ERED CRN ETD COED EE GENE ERED EE ED AEE EE ED ENE EE ANE ED AND I GD ED ED ED en ee ee 


SD AA LOD A OD AS A A OS TP AY A NO A ED AOS A A ND NS ES OS OY LS A TS SD OD ED ES EN ED END <I <EY RD oD TS 


REE EE ERD AED “SERRE ED SEEPS GOED RUS METS OUT AU EERO EP AED SES IDE ED ERAN RED SERN SAEED EP EE END OSE CUED GRD GEERT SUED CURIS URED CHET RAD ERD STE AENED OBOE at <a 


where the first byte of the first word 
contains the trait, which indicates either 
joined or not joined; the value of this 
item is always zero (not joined) for this 
roli. The joined value indicates that the 
subscript described must appear in a gener- 
al register at the time of the reference. 
The remaining three bytes of the first word 
indicate the number of times this subscript 
expression is used. 


The next two words contain pointers to 
rolls holding information on the array and 
the array reference to which this group 
refers. The fourth word holds the array 
offset; this value accounts for element 
size and includes all modification due to 


Appendix B: 


constant subscripts. The remaining words 
hold the induction variable coefficient 
used in this reference for each loop in the 
nest, beginning with nest level one (the 
outermost loop) and ending with the highest 
nest level at this array reference. 


ROLL 3: NEST SCRIPT ROLL 


This roll contains information concern- 
ing array references in nested DO loops. 
The information for this roll is taken from 
the SCRIPT roll as each nest of loops is 
encountered, one nest at a time. The roll 
exists only in Unify. The group size of 
the NEST SCRIPT roll is variable with a 
minimum of 20 bytes. The format of the 
NEST SCRIPT roll is as follows: 


4 bytes 

ee Fe ee ee et Pe ee 1 
jtraits | frequency | 
}--------4---~~--------------------------- { 
|pointer to ARRAY REF roll | 
|----------------------------------------- { 
Jpointer to the ARRAY roll | 
i i ee ee a a | 
|offset | 
eT Ie Oe en eR a en a a ee Ee eee ee a | 
Jinduction variable coefficient | 
|----------------------------------------- { 
| ° | 
| : | 
| : | 
SS Pw 1 
Jinduction variable coefficient | 
a cs ee ee eee ee J 
where the first byte of the first word 
indicates joined or not Joined. The 
remaining three bytes of the first word 
indicate the number of times’ that this 
Subscript expression is used. The next two 
words of the group contain pointers to 
rolis which hold information on the array 


and the array reference to which this entry 
refers. The fourth word holds the actual 
adjusted offset for this array reference. 
The last words of the group contain the 
coefficients of induction variables used in 
the array reference, beginning with the 
nest level one variable and ending with the 
highest nest level. 


ROLL 4: POLISH ROLL 


This roll is used to hold the Polish 
notation generated by Parse, one statement 
at a time. (The Polish notation is moved 
to the AFTER POLISH roll at the end of each 
statement. ) Therefore, the roll contains 
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pointers, drivers, and an occasional con- 
stant. The terms PO and Pi are used to 
refer to the bottom and next-to-bottom 


groups on the POLISH roll, respectively. 


In Gen, the Polish notation is moved 
back onto the POLISH roll from the AFTER 
POLISH roll, one statement at a time. It 
is used in the production of object code. 


The group size for the POLISH roll is 
four bytes. The format of the Polish 
notation which appears on this roll is 
described completely in Appendix C. 


The POLISH roll is not used in the other 
phases of the compiler and no information 
is left on it through these phases. 


ROLL 4: LOOP SCRIPT ROLL 


This roll contains information on array 
references encountered in the source 
module. The group size for the LOOP SCRIPT 
roll is variable; the minimum is 20 bytes. 
Its format is: 


4 bytes 
SU EES a aaa ae a ae 1 
jtraits | frequency | 
eee thes i -_ =  —f 
|pointer to the ARRAY REF roll | 
}---—-------—-------------------—-—----- { 
|pointer to the ARRAY roll | 
Ba a ett a aa | 
|offset | 
a ea ee ieee ae nee are aa J 
Jinduction variable coefficient | 
}-------—----~------~---------------------- { 
| ° | 
| , | 
| ° | 
fe ee a ee { 
jinduction variable coefficient | 
SR ak ee re er eS ee Oe Rye re oe ee a Pan J 


All items are the same as described for the 
NEST SCRIPT roll (roll 3). 

The LOOP SCRIPT roll exists only in 
Unify. It is used by this phase to further 
separate subscripts into two categories: 
Standard, those which must appear in gener- 
al registers at the time of reference, and 
nonstandard. 


ROLL 5: LITERAL CONST ROLL 


This roll holds literal constants, which 
are stored as plexes. The group size for 
the LITERAL CONST roll is variable. Each 
plex has the form: 
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rr rrr rr 1 
| n | 
pote ee eee eee { 
| k | 
aaa 7-7 == --==— = { 
| C4 | C2 | C3 | c | 
See estes Eee eer Reon eons Fee Pere ate ; Perron j 
| ° | 
| . | 
| ° | 
SSS ee == .--------- to sea en rac | 
| oc | | | | 
ane Nate eter yee Nes sets eas [eee eee ees J 


where n is the number of words in the plex, 
exclusive of the word which holds n, k is 
the number of bytes in the literal con- 
stant, and c (the k character) may fall in 
any byte of the last word of the plex. If 
the literal constant appeared in a source 
module DATA or PAUSE statement, the high 
order bit of the second word of the plex 
(k) is set to one; otherwise, it is zero. 


Entries are made on the LITERAL CONST 
roll only during Parse. It is used to hold 
the literal constants throughout the com- 


piler; its format, therefore, does not 
varye 
ROLL 7: GLOBAL SPROG ROLL 


In Parse this roll holds the names. of 
all SUBROUTINES and non-library FUNCTIONs 
referred to in the source module. It also 
holds the names of all subprograms listed 
in EXTERNAL statements in the source 
module, including library subprograms. In 
addition, the compiler itself generates 
calls to the library exponentiation rou- 
tines; the names of these routines’ are 
entered on the GLOBAL SPROG roll. 


The group size for the GLOBAL SPROG roll 
is eight bytes. All groups placed on the 
GLOBAL SPROG roll by Parse have the follow- 
ing format: 


4 bytes 
a te eS ee ie ee 1 
| <----—~--—-------—- subprogram-—-—-—-—-—-—-——--—--—-—-—- | 
eas ree ac ial a aca aad, (aac ncaa anemia cabana nam eaaeaias 
|------- name-—-———-—-——— > | TAG | 0 | 
eee en Ee eed Tae ee i le ee ee 


The TAG appearing in the seventh byte of 
the group indicates the mode and size of 
the FUNCTION value for FUNCTIONS; it has no 
meaning for SUBROUTINEs. 


In Allocate, the information on the roll 
is altered to: 


4 bytes 
One es a ee Ge ee 1 
| ESD number | displacement | 
}~------------------- 4_—-------~---------- { 
| base table pointer | 
a a ns eee J 


The ESD number is the one assigned to the 
subprogram. The displacement and the base 
table pointer, taken together, indicate the 
location assigned by Allocate to hold _ the 
address of the subprogram. The specified 
BASE TABLE roll group holds an address; the 
displacement is the distance in bytes from 
that address to the location at which the 
address of the subprogram will be stored in 
the object module. 


In Gen, the GLOBAL SPROG roll is used in 
the construction of object code, but it is 
not altered. 


In Exit, the roll is used in the produc- 
tion of RLD cards, but is not altered. 


ROLL 8: FX CONST ROLL 


This roll holds the fullword integer 
constants which are used in the _ source 
module or generated by the compiler. The 
constants are held on the roll in binary, 
one constant per group. The group size for 
the FX CONST roll is four bytes. 


The format of the FX CONST roll is 
identical for all phases of the compiler. 
The roll remains in the roll area for all 
phases, even though it is not actually used 
in Allocate and Unify. 


ROLL 9: FL CONST ROLL 
This roll holds the single-precision 
real (floating point) constants used in the 


source module or generated by the compiler. 
Constants are recorded on the roll in 
binary (floating point format), each con- 
Stant occupying one group. The group size 
for the FL CONST roll is four bytes. 


The FL CONST roll remains in the roll 
area for all phases of the compiler, 
although it is not actually used in Alloc- 
ate or Unify. The format of this roll is 
identical for all phases. 
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ROLL 10: DP CONST ROLL 


This roll holds the double-precision 
(8-byte) real constants used in the source 
module or defined bv the compiler. 


The constants are recorded in binary 
(double-precision floating point format), 
one constant per group. The group size for 
the DP CONST roll is eight bytes. 


The DP CONST roll is present in this 
format through all phases of the compiler. 


ROLL 11: COMPLEX CONST ROLL 


This roll holds the complex constants of 
standard size (eight bytes) used in the 
source module or generated by the compiler. 
Each complex constant is stored on the roll 
aS a pair of 4-byte binary floating-point 
numbers, the first represents the real part 


of the constant and the second represents 
the imaginary part. 
The COMPLEX CONST roll exists in the 


format described above for all phases of 


the compiler. The group size is eight 
bytes. 
ROLL 12: DP COMPLEX CONST ROLL 


This roll holds the complex constants of 
optional size (16 bytes) which are used in 
the source module or generated by the 
compiler. Each constant is stored as a 
pair of double-precision binary floating 
point values. The first value represents 
the real part of the constant; the second 
value represents the imaginary part. The 
group size for the DP COMPLEX CONST roll is 
16 bytes. | 


The DP COMPLEX CONST roll exists in this 
format for all phases of the compiler. 


ROLL 13: TEMP NAME ROLL 


This roll is used as temporary storage 
for names which are to be placed on the 
ARRAY Or EQUIVALENCE roll. The group size 
for the TEMP NAME roll is eight bytes. The 
format of the group is: 
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4 bytes 
Sad a a a aaa ae a 1 
| <-——--—-—-———-—~—~—-—-—-—-—name-——-—-—-—-—--—--—-—---— ———— | 
|-------------------- q----------1--------- { 
| ----------—---—--—--~- >| TAG | 0 | 
ps ae OS ae J 
The TAG appearing in the seventh byte of 
the group indicates, in the format of the 


TAG field of a pointer, the mode and size 


of the variable. 


The TEMP NAME roll is used only during 
Parse and Allocate; it does not appear in 
any later phase of the compiler. 


ROLL 13: STD SCRIPT ROLL 


The information on this roll pertains to 
array references for which the subscript 
expression must appear in a general regist- 
er (joined). 


The roll exists only in Unify and the 
information contained therein is taken from 
the SCRIPT roll. Its structure and con- 
tents are identical to those of the NONSTD 
SCRIPT roll (roll 2) with the exception 
that the traits on this roll always indic- 
ate ‘joined. The group size is variable 
with a minimum of 20 bytes. 


ROLL 14: TEMP ROLL 


This roll is used as temporary storage 
in Parse and is not used in any later phase 
of the compiler. The group size for the 
TEMP roll is four bytes. 


This roll is used as temporary storage 
for error information in Parse and is not 
used in the other phases of the compiler. 
The group size for the ERROR TEMP roll is 
four bytes. 


ROLL 15: DO LOOPS OPEN ROLL 


In Parse, as DO statements are encoun- 
tered, pointers to the target labels of the 
DO statements are placed on this roli. 
When the target statement itself is encoun- 
tered, the pointer is removed. 


In Allocate, the roll may contain some 
pointers left from Parse; if any are pres- 
ent, they indicate unclosed DO loops; the 
roll is checked by Allocate and any infor- 
mation on it is removed. 
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This roll is not used after Allocate. 
The group size for the DO LOOPS OPEN roll 
is four bytes. 


ROLL 15: LOOPS OPEN ROLL 


This roll contains the increment and 
terminal values of the induction variable 
used in a DO loop and transfer data for the 
reiteration of the loop. 


Gen creates the roll by establishing an 
entry each time a DO loop is encountered. 
The information is used in generating the 
object code. As a loop is closed, the 
bottom group from the LOOPS OPEN roll is 
pruned. 


The group size is four bytes. Four 
groups are placed in the roll at one time. 
The configuration of a LOOPS OPEN roll 
group is as follows: 


4 bytes 
ee Gee 
eo eas ' 
oo 


ROLL 16: ERROR MESSAGE _ ROLL 


This roll is used only in Parse. It is 
used during the printing of the error 
messages for a single card of the source 
module. Each group holds’ the beginning 
address of an error message required for 
the card. It is used in conjunction with 
the ERROR CHAR roll, whose corresponding 
group holds the column number in the card 
with which the error is associated. The 
group size for the ERROR MESSAGE roll is 
four bytes. 


ROLL 16: TEMP AND CONST ROLL 


This roll is produced in Gen and is used 
in Gen and Exit. It holds all constants 
required for the object module and zeros 
for all temporary storage locations 
required in the object module. 


Binary constants are moved to this roll 
by Gen from the various CONST rolls. This 
roll becomes the object module's temporary 
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storage and constant area. The group size 
for the TEMP AND CONST roll is four bytes. 


ROLL 17: ERROR CHAR ROLL 


This roll is used only during Parse, and 
is not used in any subsequent phase of the 
compiler. 


While a single source module card and 
its error messages are being prepared for 
output, this roll holds the column number 
with which an error message is to _ be 
associated. The address of the error mes- 
Sage is held in the corresponding group on 
the ERROR MESSAGE roll. The group size for 
the ERROR CHAR roll is four bytes. 


ROLL 17: __ADCON_ ROLL 


This roll is used only in Exit, and is 


not used in previous phases of the compil- 
er. It holds address constants, the loca- 
tions at which they are to be stored, and 


relocation information. The group size is 
16 bytes. The first word of the group 
holds an area code, indicating the control 
section in which the constant exists. The 
second word of the group holds the address 
into which the constant is to be placed; 
the third holds the constant. The last 
word of the group indicates the relocation 


factor (ESD number) to be used for the 
constant. 
ROLL 18: INIT ROLL 

The group size for the INIT roll is 
eight bytes. The roll is initialized in 
Parse, and used and destroyed in Allocate. 


Each group on the roll holds the name of a 
Scalar variable or array listed in the INIT 
option of a DEBUG statement in the source 


module. The format of the group is: 

4 bytes 
aaa aa a Aa a ca aa a 1 
| <~---~—---~—-———- Variable name--—--—----—--—--—--- ] 
a a aaa eden ieee aed 4 
| ------------------- >| 0 
beth ee es i a i ee J 
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ROLL 18: DATA SAVE ROLL 


This roll is used only in Gen, where it 


holds the Polish notation for portions of 
DATA statements or Explicit specification 
statements which refer to control sections 


aifferent from the control section present- 
ly in process. The roll is a temporary 
storage location for this information, 
Since data values are written out for one 
control section at a time. The group size 
is four bytes. 


ROLL 19: __XTEND LABEL (XTEND LBL) ROLL 


This roll is used only by Parse. It 
holds the pointers to the LABEL roll for 
all labels defined within the innermost DO 


loops that are possible extended range 
candidates. The group size of the XTEND 
LABEL roll is four bytes. Each group holds 





a pointer to the LABEL roll. The format of 


the group on the roll is: 


1 byte 3 bytes 

amie a a Mi ee ne ee or ay ae ee 1 
{TAG [LABEL roll pointer | 
ie, Diner sea pe eae oe epee ene seers Bay ene ena oe en Po J 
If the label is a possible re-entry point 
from the extended range of a DO loop, the 
TAG byte contains a X'05'. Otherwise, the 


TAG byte contains a X‘O0O'. 


ROLL 19: EQUIVALENCE TEMP (EQUIV TEMP) 
ROLL 


raenonmae e Y 


This roll is used to hold EQUIVALENCE 


roll data temporarily in Allocate, and is 
not used in any other phase of the 
compiler. The group size for the 
EQUIVALENCE TEMP or EQUIV TEMP roll is 
twelve bytes. The format of the group on 
the roll is: 
4 bytes 

einer ees a ed es ee 3 
| <--------------- variable---—-—-—-—--—--—-—----—~—- 
}-------------------- qo- 2-9-2 2-2 ---------- { 
|------- name-——-——--—— >| 0 | 
}-------------------- 4-------------------- { 
| offset | 
(ee eee oe ee ee oe a J 
The offset is the relative address of the 
beginning of the variable within the 
EQUIVALENCE group (set) of which it is a 
member. This roll holds this information 
during the allocation of storage for 


EQUIVALENCE variables. 
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ROLL 20: XTEND TARGET LABEL (XTEND TARG 
LBL) ROLL 


This roll is used only by Parse. The 


group size of the XTEND TARGET LABEL roll 
is four bytes. Each group holds a_ pointer 
to the LABEL roll for each label that 


appears in any transfer statement (e.g., GO 
TO, Arithmetic IF statements) within a DO 
loop. These groups indicate transfers out 
of an innermost DO loop and ae possible 
extended range. The format of the group is 
the same. aS Roll 19, XTEND LABFL roll. 


SAR MARAE CIR CRTTILEY EE BD GI AOS CELE AEDS ES ORE RNS CTE ACETND MSAD 


1 byte 3 bytes 

tea een Sl a ee + 
| TAG | LABEL roll pointer | 
best eee kee ee ew ee ew eee eee J 
If the TAG byte contains a X'40*, this 
indicates that the target label also 


appears in a transfer statement outside the 
DO loop and may be a possible re-entry 
point (if the label is defined within the 


loop). Otherwise, the TAG byte contains a 
X*00°. 

ROLL 20: EQUIVALENCE HOLD (EQUIV HOLD) 
ROLL 


This roll is used to hold EQUIVALENCE 
roll data temporarily in Allocate, and is 
not used in any other phase of the compil- 
eLe The group size for the EQUIVALENCE 
HOLD roll is twelve bytes. The format of 
the group on the roll is: 


4 bytes 
er rye re ee a Eee ee a eee 1 
| <--~~-~---~~-----~- variable--------~--------- | 
}~--—-----~---------~ q~------------------- { 
| -~---—-——name--~--—-—-—-—> | 0 | 
}-------------------- 4--------~----------- 4 
i offset | 
es Se el i ee ee ee ee J 


The offset is the relative address of the 
beginning of the variable within the 
EQUIVALENCE group (set) of which it is a 
member. This roll holds this information 
during the allocation of storage for 


EQUIVALENCE variables. 


ROLL 20: REG ROLL 


This roll contains information concern- 
ing general registers required in the 
execution of DO loops in the object module. 


The group size of the REG roll is twelve 


bytes. The roll is used only in Unify. 
Each group has the following format: 
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4 bytes 
Ce re ee ee eR ee ee 1 
} traits | frequency { 
}-~---~-~~--4----------------------------- { 
} ARRAY REF. ea | 
pao n-ne { 
{ LOOP CONTROL pointer ; 
He ae ety Need OP ey a Sey Neeson WE eee yr ern me eee ep ey rea eee J 


The frequency indicates how many times 
within a loop the register is used. The 
registers are symbolic registers that are 
converted to real registers and/or tem- 
porary storage locations. The pointer to 
the ARRAY REF roll is actually a thread 
which indicates each place that this 
register is required in the loop. The last 
word, the pointer to the LOOP CONTROL roll, 
designates where the register in question 
was initialized. (The particular informa- 
tion is contained in the second word of the 
entry on the LOOP CONTROL roll.) 


ROLL 21: BASE TABLE ROLL 


Fo a Ses pp ne cea eco se escitoe tae eamrwnereeesansSc ann ae taeas ame 


This roll is constructed by Allocate, 
and remains in the roll area for all 
remaining phases of the compiler. The BASE 
TABLE roll becomes the object module base 
table, which holds the base addresses used 
in referring to data in the object module. 


The group size for this roll is eight 
bytes. One group at a time is added to 
this roll by Allocate. The first word 
holds the area code which indicates’ the 
relocation factor by which the base table 
entry must be modified at object time; each 
unique area code also defines an object 
module control section. The second word 
holds a relative address within the control 
section defined by the area code; this is 
the value which is in the corresponding 
base table entry prior to modification by 
the linkage editor. 


The entire BASE TABLE roll is 
structed by Allocate. 


con- 


ROLL 22: ARRAY ROLL 


This roll is used throughout the compil- 


er to hold the required information de- 
scribing arrays defined in the source 
module. 

In Parse, the name and dimension infor- 


mation is added to the roll for each array 
definition encountered. The group size for 
the ARRAY roll is 20 bytes. The format of 
the group is: 


ET 
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4 bytes 
Cars ro ere ie ere eee I ee ee on 1 
| <-------------- array name-~—--—------------ | 
oo See ee ae aan en a kc 4 
] ~----------------- >| TAG | 0 } 
p-—---—--- Diese os f ipo een ane ee eee r 
ARRAY DIMENSION pointer | 
}----------------—------------------------ : 
| number of elements | 
}----------------------------------------- { 
} array offset | 
igeneaneeeneel nec eeo nnn Bas ia ae eee ele Se ol J 


The TAG appearing in the seventh byte of 
the group indicates, in the format of the 
TAG field of a pointer, the mode and size 
of the array variable. The pointer in the 
third word of the group points’ to the 
beginning of the plex on the ARRAY 
DIMENSION roll, which describes the dimen- 
Sions of the array. The number of elements 
in the array iS a constant, unless’ the 
array has dummy dimensions; in the latter 
case, Parse puts a dummy pointer to a 
temporary location in this word of the 
group. 


The array offset is the summation of the 
multipliers for the array subscripts. If 
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the array dimensions are ni, n2,...n7, then 
the multipliers are 1, ni, ni*n2, n1¥*n2*n3, 
-- n1#n2*n3*n4*n5*n6, where the size of the 
element of the array is not considered. 
This value, after it is multiplied by the 
element size, is used as a subtractive 
offset for array references. The offset is 
placed on the roll as a constant unless the 
array has dummy dimensions; in the latter 


case, a dummy pointer to a temporary loca- 
tion is placed in the last word of the 
group. 


In Allocate, the first two words of the 
ARRAY roll group are replaced with the 


following: 
4 bytes 

aaa aegis aian: Rete Dye ee ee es ge 1 
] TAG |DBG/CEAD _ | displacement | 
eee i ac ee eel ee tere (iad oa Re ee ed een esc J 
| base table pointer | 
a ee J 
The TAG is unchanged, except in location, 


from Parse. The DBG/CEAD flag is logically 
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split into two hexadecimal values. The 
first of these indicates debug references 
to the variable; its value is 1 for INIT, 2 
for SUBCHK, 0 for neither, and 3 for both. 
The second hexadecimal value is nonzero if 
the array is in COMMON, a member of an 
EQUIVALENCE set, used as an argument to a 
subprogram, or a dummy; it is zero other- 


wise. The displacement and the base table 
pointer, taken together, indicate the 
beginning address of the array. The base 


table pointer specifies the BASE TABLE roll 
group to be used in references to the 
array; the displacement is the distance in 
bytes from the address held in that group 
to the location at which the array begins. 
If the array is a dummy, the base table 
pointer is replaced by a pointer to the 
GLOBAL DMY roll group defining the array, 
and the displacement is zero. 


The third, fourth, and fifth words of 
the ARRAY roll group are not modified by 
Allocate. 


The ARRAY roll remains in storage 
throughout the compiler, and it is con- 
sulted, but not modified, by the phases 
following Allocate. 


ROLL 23: DMY DIMENSION ROLL 


in Allocate, 
to the array 


used first 
pointers 


This roll is 
where it holds 
definition and the entry statement with 
which dummy array dimensions are asso- 
ciated. The group size of the DMY DIMEN- 
SION roll is four bytes. Two groups are 
added to the roll at a time to accommodate 
this information; the format is: 


4 bytes 
aaa ae aa a aa i 1 
| ARRAY pointer | 
|----------------------------------------- { 
| ENTRY NAMES pointer | 
eee eee ee ee een Se nen et are ea Ree 


In Gen, the DMY DIMENSION roll is used 
in the generation of temporary locations 
for the dummy dimensions. This operation 
is performed when code is being produced 
for the prologue with which the dummy 
dimension is associated. 


The DMY DIMENSION roll is 
later phases of the compiler. 


not used by 


ROLL 23: SPROG ARG ROLL 


This roll becomes the subprogram argu- 
ment list area of the object module. The 
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roll is constructed by Gen and holds point- 
ers to the arguments to subprograms in the 
order in which they are presented in the 
subprogram reference. These pointers may, 
therefore, point to the SCALAR, ARRAY, 
GLOBAL SPROG, or TEMP AND CONST rolls (the 
last roll holds arguments which are 

expressions or constants). The value zero 
is placed on this roll for arguments whose 
addresses are computed and stored in the 
object module argument list area. 


The TAG fields of the pointers on this 
roll contain the value zero except for. the 
TAG field of the last pointer for a single 
subprogram reference; this field contains 
the value 80. 


The contents of the SPROG ARG roll are 
punched by Exit. The group size for the 
SPROG ARG roll is four bytes. 


ROLL 24: ENTRY NAMES ROLL 


In Parse, this roll holds all ENTRY 
names defined in the source subprogram, and 
pointers to the locations on the GLOBAL DMY 
roll at which the definitions of the dummy 
arguments corresponding to the ENTRY begin. 
The group size for the ENTRY NAMES roll is 


16 bytes. The format of the group is: 
4 bytes 

se NI in es - 
| <-------------- ENTRY name-—-~—--~——---—-—-—-—---— | 
eerie aan ee ar amr oS 1 
|------------------- >| 0 | 
|-------------------- 4_-~----~------------ { 
| dummy pointer | 
|----------------------------------------- { 
| 0 | 
a a a ee te 4 


The dummy arguments corresponding to the 
ENTRY are listed on the GLOBAL DMY roll in 
the order in which they are presented in 
the ENTRY statement. 


In Allocate, the ENTRY NAMES roll is 
used in the check to determine that scalars 
with the same names aS all ENTRYs have been 
set. A pointer to the scalar is placed in 
the fourth word of the group by this phase. 


In Gen, during the production of the 
initialization code (the object module 
heading), the first word of the group is 


replaced by a pointer to the ADCON roll 
indicating the location of the prologue, 
and the second word is replaced by a 
pointer to the ADCON roll indicating the 
location of the epilogue. During the pro- 
duction of code for the prologue, the first 
pointer (the first word of the group) is 
replaced by a pointer to the ADCON roll 
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which indicates the entry point for the 


ENTRY. 


This roll is not required after the Gen 
phase. 


ROLL 25: GLOBAL DMY ROLL 


In Parse, each group on the roll con- 
tains the name of a dummy listed in a dummy 
argument list for the principle entry or 
for an ENTRY statement in a source subpro- 


gram. A flag also appears in each group 
which indicates whether the dummy is a 
"call by name" or a “call by value“ dummy. 
The group size is eight bytes. The format 
of the group in Parse is: 
4 bytes 
ee ean te ee gee ee ee 1 
| <---~—-—~--—-—-~---~—- dummy name—-—-—-~—-——-—-—~—-—-—~—~-— | 
fess SS 1 Reser aaa eae | 
| ------—---—-—-----—-—--- >| flag | 
Eee a artis Sov cee een Ea Tre at A ERE Acree ne i a SL ery nee J 


where the dummy name occupies the first six 
bytes of the group. 


Label dummies, indicated by asterisks in 
the source module, are not listed on this 
roll. With this exception, however, the 
dummy lists from the source subprogram are 
entered on this roll as they appear in the 
source statements. The end of each dummy 
list is signaled by a marker symbol on the 
roll. Since each of the dummy lists is 
represented on the roll, the name of a 
Single dummy may appear more than once. 

In Allocate, the information in each 
group is replaced by: 


4 bytes 
SSeS ee ee te en ee ne 1 
| TAG | DBG/flag | displacement | 
t Si i al ai aaa i i a a Ea Ss Sr ls ses SS ses i is ey ih Sle sis ile is ic sa eb { 
| base table pointer | 
a ee ee ee J 


where the base table pointer indicates the 
group on the BASE TABLE roll to be used for 
references to the dummy, and the displace- 


ment (in the third and fourth bytes) indi- 
cates the distance in bytes from the 
address stored in that BASE TABLE roll 


group to the location of the dummy. The 
"flag" occupies the second hexadecimal 
character of the second byte and is 
unchanged from Parse, indicating call by 
name if it is on. The first hexadecimal 
value in that byte indicates debug 
references to the variable; its value is 1 
for INIT, 2 for SUBCHK, 0O for neither, and 
3 for both. The TAG indicates the mode and 
Size of the dummy. 
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| The GLOBAL DMY roll is used but unmodi- 
fied in Gen and Exit. 


ROLL 26: ERROR ROLL 


This roll is used only in Parse and 
holds the location within the statement of) 
an error, and the address of the error 
message for all errors encountered within a 
single statement. As the statement is 
written on the source listing, the informa- 
tion in the ERROR roll groups is removed, 
leaving the roll empty for the processing 
of the next statement. 


The group size is four bytes. Two 
groups are added to this roll at ae time: 
(1) the column number of the error, count- 


ing from one at the beginning of the source 
statement and increasing by one for every 
card column in the statement, and (2) the 
address of the message associated with the 
particular error encountered. 


ROLL 26: ERROR LBL ROLL 


This roll is used only in Allocate, 
where it holds labels which are referred to 
in the source module, but which are unde- 


fined. These labels are held on this roll 
prior to being written out as undefined 
labels or unclosed DO loops. The group 


Size for the ERROR LBL roll is four bytes. 


ROLL 27: LOCAL DMY ROLL 


This roll holds the names of the dummy 
arguments to a statement function while the 
statement function is being processed by 


Parse. The group size is eight bytes. The 
format of the group is: 
4 bytes 

aa aaa a i a a ea 1 
| <---~-~--—-—------- dummy name~-—~—~—~—---—-——~——-—-——— | 
poe aS an aa mm 1 
|—----------------- >| 0 | 
lees Siete ie es ee oe J 


The information is removed from the roll 
when the processing of the statement func- 
tion is complete. 


This roll does not appear in any subse- 
quent phase of the compiler; however, 
pointers to it appear in the Polish nota- 
tion produced by Parse and these pointers 
are, therefore, processed by Gen. 


ROLL 28: LOCAL SPROG ROLL 


In Parse, the roll holds the names of 
all statement functions as they are encoun- 
tered in the source module. The group size 
for the LOCAL SPROG roll is eight bytes. 
The format of the group is: 


4 bytes 
SLES NEE OTR eR ee aE BO ere em ede ae coe eee ee . 
| <---~—--~-~---- stmt. function-——-—-——--—-—--—-—--- | 
|------------------- ee { 
| ------- name-————-—— >| TAG | 0 | 
Fateh ee See Drs eerie acta ey ele J 
The TAG appearing in the seventh byte of 
the group indicates, in the format of the 
TAG field of a pointer, the mode and size 


of the function value. 


In Allocate, the first four bytes of 
each group are replaced by a pointer to the 
BRANCH TABLE roll group which has been 
assigned to hold the address of the state- 
ment function. 


The LOCAL SPROG roll is used by Gen and 
Exit, but it is not modified in those 
phases. 

ROLL 29: EXPLICIT ROLL 


This roll is used in Parse and Allocate, 


where it holds the names of all variables 
defined by Explicit specification state- 
ments. The group size for the EXPLICIT 


roll is eight bytes. The format of the 
group in both phases is: 


4 bytes 
Se i ee ee er ee 1 
| <~----------- variable name--—--—-—-—-—-—--—--—-- | 
dc cicimear can reaarase carecases : Reiner aeamareriaaieas) core nein naar a { 
| -----—-—-—-—-—--—--—-—--—-- >| TAG | 0 | 
Loe aoe oe as tee Seen NCES CMEC ee eine eee J 


where the TAG (seventh byte) indicates the 
mode and size of the variable. 


Groups are entered on this roll by 
Parse; the roll is consulted by Allocate, 
but not altered. 


ROLL 30: CALL LBL ROLL 


This roll is used only in Parse, where 
ait holds pointers to the LBL roll groups 
defining labels which are passed as argu- 
ments in source module CALL statements. 
The pointers are held on this roll only 
temporarily, and are packed two pointers to 
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a group. Pointers are added to the roll 
when the labels are found as arguments in 
CALL statements. The group size for the 
CALL LBL is eight bytes. 


ERROR SYMBOL ROLL 


é 


ROLL 30: 


This roll is used only in Allocate, 


where it holds any symbol which is in 
error, in preparation for printing. The 
group size for the ERROR SYMBOL roll is 
eight bytes. The symbol (variable name, 
subprogram name) occupies the first six 
bytes of the group. The remaining two 


bytes are set to zero. 


ROLL 31:  NAMELIST NAMES ROLL 


In Parse, this roll holds the NAMELIST 
names defined in the NAMELIST statement by 
the source module. The group size for the 


NAMELIST NAMES roll is twelve bytes. These 
groups are placed on the roll in the 
following format: 

4 bytes 
Bee te te eee ae 1 
| <-----—++-+--+~—-- NAMELIST----—---~-~-~-~---~---+ | 
ees eee ae ee | 
|------- name-————-——— >| 0 | 
|-------------------- 4-~-~--------------- { 
| pointer to NAMELIST items | 
ER ee ee aera fe entered eee p ee e e 4 


where the pointer indicates the first vari- 
able in the list associated with the NAME- 
LIST name. In Allocate, the content of the 
group on the NAMELIST NAMES roll is changed 
to reflect the placement of the correspond- 
ing NAMELIST table in the object module. 
The format of the first two words of the 
modified group is: 


4 bytes 
ima aaa al ie aac aaa Me Pyaar ee ee 1 
| 0 | displacement | 
}-------------------- 4----~-~------------- { 
| base table pointer | 
a a ee J 


where the base table pointer indicates the 
group on the BASE TABLE roll to be used for 
references to the NAMELIST table, and the 
displacement (bytes 3 and 4) indicates the 
distance in bytes from the address in that 
BASE TABLE roll group to the location of 
the beginning of the NAMELIST table. 


This roll is used, but not modified, in 
Gen and Exit. 
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ROLL 32: NAMELIST ITEMS ROLL 
This roll holds the variable names 
listed in the namelists defined by the 


source module. The group size for the 
NAMELIST ITEMS roll is eight bytes. Infor- 
mation is placed on the roll by Parse in 
the following form: 


4 bytes 
Bs tree gata ae eee ee 1 
| <----~—-~-—~-—----- variable—---—--—-—-—--—-—-—-—-----— | 
icin ie lanier aa Rs sac Sacer { 
| ---—---- name———~—-——— >| 0 | 
eae ea Ne ee Re NRE ae ere Re Perf a ae se J 


A marker symbol separates namelists on the 
roll. 


The roll is used in 
Allocate and is destroyed. 
appear in later phases. 


this format by 
It does not 


ROLL 33: ARRAY DIMENSION ROLL 


used to hold dimension 
information for the arrays defined in the 
source module. The group size for the 
ARRAY DIMENSION roll is’ variable. The 
information is placed on the roll by Parse 
in the form of a plex, as follows: 


This roll is 


4 bytes 
De ag ee re ee ee em ee 1 
| n | 
| ----------------------------------------- | 
| dimension | 
|----------------------------------------- { 
| multiplier | 
|----------------------------------------- { 
| dimension | 
eee ne es ee { 
| multiplier | 
|----------------------------------------- { 
| : | 
| ° | 
| ° | 
}---------------------------------_------- { 
| dimension | 
|----------------------------------------- { 
| multiplier | 
BS a a ee J 


where n is the number of words in the plex, 
exclusive of itself. As many dimensions 
and corresponding multipliers appear as 
there are dimensions declared for the 
array. 


Unless the array is a dummy and has 
dummy dimensions, each dimension and multi- 
plier is a constant. When dummy dimensions 
do appear in the array definition, the 
corresponding dimension on this roll is a 
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pointer to the dummy dimension variable on 
the SCALAR roll, and all affected multip- 
liers are pointers to temporary locations 
(on the TEMP AND CONST roll). The multip- 
liers for an array with dimensions ni, nd2, 
Ns jweiey n7 are i ni, ni*tn2,cee,; 
n1#n2*n3*n4*n5*n6. 


The ARRAY DIMENSION roll is present, but 
not modified in Unify, Gen, and Exit. 


ROLL 34: BRANCH TABLE ROLL 


This roll becomes the object module 
branch table. During Allocate, where the 
roll is first used, the size of the roll is 
determined, and some groups are actually 
placed on it. These groups contain the 
value zero, and each group refers to a 
source module label. 


In Gen, the information for the BRANCH 
TABLE roll groups is supplied as_ each 
labeled statement is processed. The group 
size for the BRANCH TABLE roll is eight 
bytes. The format of the group is: 

4 bytes 
Fe Be ay gee ee ee a eT ee ee 1 
| area code | 
|--------------—----------—----------- { 
| relative address 
Mat Sa ee ae ei ees J 
where the area code provides the reference 


editor modification of the 
corresponding branch table word, and the 
relative address is the relative location 
of the label in the control section (area) 
in which it appears. Branch table (and, 
hence, BRANCH TABLE roll) entries are pro- 
vided for all branch target labels, state- 
ment functions, and made labels (labels 
constructed by the compiler to refer to 
return points in DO loops and to the 


for linkage 


statements following Logical IF state- 
ments). 
The roll is retained in the Gen format 


until it is written out by Exit. 


ROLL 35: TEMP DATA NAME ROLL 


This roll is used only in Parse, where 
it holds pointers and size information for 
variables listed in DATA statements or in 
Explicit specification statements which 
specify initial values. Information is 
held on this’ roll while the statement is 
being processed. 


The group size for the TEMP DATA NAME 
roll is four bytes. Four groups are added 
to the TEMP DATA NAME roll for each vari- 
able listed in the statement being scanned. 
They are in the following sequence: 


4 bytes 
ete ee a ee ae ee 1 
| element size (bytes) | 
}----------------------------------------- { 
| pointer to variable | 
|----------------------------------------- { 
| number elements set | 
|---~--~~------------~-------------------- { 
| element number | 
ea a ee es a a ee ee J 


The third group specifies the number of 
elements of the variable being set by the 
DATA statement or the Explicit specifica- 
tion statement. If a full array is set, 
this is the number of elements’ in the 
array; if a specific array element is. set, 
this word contains the value one. 


The fourth group indicates the first 
element number being set. If a full array 
is being set, this word holds the value 
zero; otherwise, it holds’ the element 
number. 


ROLL 36: TEMP POLISH ROLL 


This roll is used only in Parse, where 
it holds the Polish notation for ae single 
DATA group during the scanning of that 
group. In an Explicit specification state- 
ment, a DATA group is defined to be a 
Single variable and the associated con- 
Stants; ina DATA statement, a DATA group 
is the set of variables listed between a 
pair of slash characters and the constants 
associated with that set. 


This roll is used because any error 
encountered in a DATA group will cause the 


Polish notation for the entire group to be 
canceled. In an Explicit specification 
statement, the type information on the 


variable is retained when the data is bad; 
if, however, the type information is bad, 
the data is also lost. The group size is 
four bytes. 


ROLL 36: FX AC ROLL 


This roll is used in Gen only and is a 
fixed length roll of 16 groups. The groups 
refer to the 16 general registers in order. 


The group size for the FX AC roll is 
four bytes. Each group on the roll con- 


tains a pointer to the value which is held 
in the corresponding general register at 
the present point in the object module; as 
the contents of the general registers are 
changed, the pointers are changed. The 
pointers are used primarily to indicate 
that the general register is in use and the 
mode of the value in it. They are used for 
optimizing only in the case of the general 
registers which are loaded from the base 
table and the general registers used for 
indexing. If the general register corre- 
sponding to a specific group is not in use, 
the group holds the value zero. 


ROLL 37: EQUIVALENCE ROLL 


In Parse, this roll holds the names of 
all variables listed in source module 
EQUIVALENCE statements. One group is’ used 
for each variable name listed in the source 
statement, and EQUIVALENCE sets are 
separated from each other by a marker 


symbol. The group size for the EQUIVALENCE 
roll is twelve bytes. The format of the 
group is: 

4 bytes 
a re ee ne 1 
| <-----—-—-—-—-—-—--—--- variable-—-—~——-—-—-—-—~—-—-—~—-—-—-—~- | 
Ea a { 
| --—-name-—-——-~—-—--—-—-- > | 0 | 
}-------------------- 4_——~--~~~~---------- { 
[ EQUIVALENCE OFFSET pointer | 
‘ee ee Hee rena Meare eae ee ee Winer Meta eee eer OO Se eens ay ee J 


The pointer to the EQUIVALENCE OFFSET roll 
points to the first word of a plex on that 
roll which holds the subscript information 
supplied in the EQUIVALENCE statement. If 
no subscript was used on the variable in 
the EQUIVALENCE statement, the value zero 
appears in the third word of the group. on 
the EQUIVALENCE roll. 


The roll is used and destroyed in Alloc- 
ate, during the assignment of storage for 
EQUIVALENCE variables. 


ROLL 37: BYTE SCALAR ROLL 


This roll is used only in Allocate, 
where it holds (temporarily) the names of 
1-byte scalar variables. The group size 
for the BYTE SCALAR roll is eight bytes. 
The format of the group is: 
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Bre oe ee a ee eee ee 1 
|<---—--—-------- scalar name--—-—--—-—-—-—-—-—-—-—-—~—-—— | 
Sasi at cate aa » Faaaad sna aa ak : Siar tet aaa 4 
| -------—-—---—~-—-----—- >| TAG | 0 | 
AN apa ane rd Aero | Sega aeS | Reece eer eee Jj 


where the TAG field indicates the mode and 
Size of the variable. 


ROLL 38: USED LIB FUNCTION ROLL 


In Parse, the roll holds the names and 
other information for all library FUNCTIONs 
which are actually referenced in the source 
module. The group size for the USED LIB 
FUNCTION roll is twelve bytes. The infor- 
mation is placed on the roll in the follow- 
ing format: 


4 bytes 
Someta a ai eos ee ee ee hs ‘ 
| <---—----—-—----—--- FUNCT ION-—-—-—-—---——--—------ | 
 baeceeha raiment ace » aac eaERaEron: {oS { 
| ------- name———-———> | TAG | 0 | 
a la ae cae ee 1. 
| TAG | flag | noe arguments | 
Ga ea URS peal ee eNO oa Ea J 


The TAG appearing in byte 7 indicates’ the 
mode and size of the function value. The 
TAG appearing in byte 9 indicates the mode 
and size of the arguments to the FUNCTION. 
The flag in byte 10 indicates whether the 
FUNCTION is in-line and, if it is, which 
generation routine should be used. If the 


flag is zero, a call is to be generated. 
The last two bytes hold the number of 
arguments to the FUNCTION. The maximum 


number of arguments allowed for the MIN and 
MAX FUNCTIONS is 16,000. 


In Allocate, the information in the 
first two words of the group is altered to: 


4 bytes 
re ee a Ao et oe ee 1 
| TAG | 0 | displacement | 
}---------1---------- 4——-——~-~-—---------- 4 
| base table pointer | 
Ds a J 
where the base table pointer indicates the 


group on the BASE TABLE roll to be used in 
referring to the address of the subprogram. 
The displacement is the distance in bytes 
from the contents of the base table entry 
to the location at which the address of the 
subprogram will be stored. The TAG byte is 
unchanged, except in location, from Parse. 


The USED LIB FUNCTION roll is consulted 
by Gen in the construction of object code, 
but it is not modified. It is also pre- 
sent, but not modified, in Exit. 
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ROLL 39: COMMON DATA ROLL 


This roll holds the names of all COMMON 
variables as defined in source module COM- 
MON statements. A marker symbol separates 
COMMON blocks on this roll. All informa- 
tion is placed on this roll in Parse. 


The group size is eight bytes. The 
first six bytes of each group hold the 
nameof the COMMON variable; the remaining 
two bytes are set to zero, as follows: 


4 bytes 
le aes a cc la al tas a a Be ac + 
| <------------ variable name----—--—-—-—-—---—--- | 
|}------------------- 1------------——--—---- { 
| ------------------ >| 0 
Ua ane f Oe ee SEO EER ee ee J 


information on this 
The roll is 


In Allocate, the 
roll is used and destroyed. 
not used in later phases. 


ROLL 39: HALF WORD SCALAR ROLL 


The roll is used only in Allocate, where 
it holds (temporarily) the names of half- 
word scalar variables defined in the source 
module. The group size for the HALF WORD 
SCALAR roll is eight bytes. The format of 
the group is: 


4 bytes 
ee eee ee ee oy 1 
| <------------—- scalar name----—-—-—-—-—-~-—~—-—-—--——- ; 
SSS ee ee i (aa acne acre aaa aia amas conan | 
| ~------—-—-----—------ > | TAG { 0 | 
ioe ee ee a J 


where the TAG indicates the mode and size 
of the variable. 


ROLL 40: COMMON NAME ROLL 


In Parse, this roll holds the name of 
each COMMON block, and a pointer to the 
location on the COMMON DATA roll at which 
the specification of the variables in that 
block begins. The group size for the 


COMMON NAME roll is twelve bytes. The 
format of the group is: 
4 bytes 

re ne rena re ee ee ae ee ee pias oe See 1 
| <-------------- block name--—--———-——--———-—-—— [ 
 aaetaaeiiaielasaacerineamraaaamaa ie ag aaa a ra { 
| ------------------->| 0 
|-------------------- 4---~---------------- { 
| COMMON DATA pointer | 
a a J 


The pointer points to the first variable in 
the list of names which follows the block 
name in the COMMON statement; since a 
Single COMMON block may be mentioned more 
than once in source module COMMON state- 
ments, the same COMMON name may appear more 
than once on this roll. The information is 
placed on this roll as COMMON statements 
are processed by Parse. 


In Allocate, the roll is rearranged and 
the last word of each group is replaced by 


the size of the COMMON block in bytes, 
after duplicate COMMON names have been 
eliminated. The size is written out by 


Allocate and the roll is destroyed. 


ROLL 40: TEMP PNTR ROLL 


The group size for the TEMP PNTR roll is 
four bytes. This roll is used only in Gen, 
and holds pointers to those groups on the 
TEMP AND CONST roll that represent object 
module temporary storage locations. The 
information recorded on this roll is main- 
tained so that temporary storage created 
for one statement can be reused by subse- 
quent statements. 


ROLL 41: IMPLICIT ROLL 


This roll is used only in Parse and 


Allocate, where it holds the information 
supplied by the source module IMPLICIT 
statement. The group size for the IMPLICIT 


roll is four bytes. Its format is: 


1 byte 1 byte 1 byte 1 byte 

Sica ates oe ais cea ae ee co ee a cst es a 
| letter | 0 | TAG | 0 | 
ee eee Lee eats ss Leelee eaeeene eee Smee Nee J 
This information is placed on the roll by 
Parse. The TAG field in the third byte of 


the group indicates, in the format of the 
TAG field of a pointer, the mode and size 
assigned to the letter by means of the 
IMPLICIT statement. 


The IMPLICIT roll is used by Allocate, 
and destroyed. 


ROLL 42: EQUIVALENCE OFFSET ROLL 


This roll is constructed during the 
operation of Parse and holds the subscripts 
from EQUIVALENCE variables in the form of 


plexes. The group size for the EQUIVALENCE 
OFFSET roll is variable. Each plex has the 
form: 
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a ee ee re ep 1 
: 
subscript 1 
| subscript 2 | 
}----------------------------------------- { 
| . | 
| . | 
| | | 
| subscript n | 


where nis the number of words in the plex 
exclusive of itself and, therefore, also 
the number of subscripts. Each subscript 
is recorded as an integer constant. 


The connection between a plex on this 
roll and the corresponding EQUIVALENCE 
variable is made by a pointer which appears 
on the EQUIVALENCE roll and points to _ the 
first word of the appropriate plex on this 
roll. 


In Allocate, the EQUIVALENCE OFFSET roll 
is used in the allocation of storage for 
EQUIVALENCE variables. It is destroyed 
during this phase, and does not appear in 
the later phases of the compiler. 


ROLL 42: FL AC ROLL 

This roll is used in Gen only, and is a 
fixed length roll of four groups. The 
groups refer to the four floating-point 


registers, in order. 

The group size for the FL AC roll is 
four bytes. Each group on the roll con- 
tains a pointer to the value which is held 
in the register at the present point in the 
object program; as the contents of the 
registers change, the pointers are changed. 
These pointers are used primarily to indic- 
ate that the register is in use and the 
mode of the value init. If the register 
is not in use, the corresponding group on 
this roll contains zero. 


ROLL 43: LBL ROLL 


This roll holds all labels used and/or 
defined in the source module. Each label 
is entered on the roll by Parse when it is 
first encountered, whether in the label 
field or within a statement. 


The group size for the LBL roll is four 


bytes. In Parse, the format of the LBL 
roll group is: 
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where the first byte is treated as the TAG 
field of a pointer, and the remaining three 
bytes contain the label, converted to a 
binary integer. 


In the TAG field, the mode portion (the 


first four bits) is used to indicate 
whether the label has been defined; the 
remainder of the TAG field is used to 


indicate whether the label is the target of 
a jump, the label of a FORMAT, or neither. 


The leftmost four bits of the 
are used as follows: 


TAG byte 


8 


Label is defined 


0 = Label is undefined 


The rightmost four bits of the TAG byte 
indicate the following: 


1 = This is the label of the target 
of a jump (GO TO) statement. 


3 = This is the label of a FORMAT 


statement. 


5 = This label is a possible re- 
entry point within an innermost 
DO loop that may have a possible 
extended range. (Parse inserts 
the hexadecimal 5 to indicate to 
Gen that the label is a possible 
re-entry point; the Gen phase 
then restores those registers 
that were saved before the 
extended range was entered.) 


0 = None of the above conditions. 


In Allocate, the lower three bytes of 
each LBL roll group defining a jump target 
label are replaced by the lower three bytes 
of a pointer to the BRANCH TABLE roll 
group, which will hold the location of the 
label at object time. Each group defining 
a FORMAT statement label is replaced (lower 
three bytes only) with a pointer to the 
FORMAT roll group which holds the _ base 
pointer and displacement for the FORMAT. 
Groups defining the targets of unclosed DO 
loops are cleared to zero. 


In Gen, the LBL roll is used to find the 
pointers to the BRANCH TABLE and FORMAT 
rolis, but it is not altered. , 


Lot 


ROLDL_4h:_ SCALAR ROLL 


In Parse, the names of all unsubscripted 
variables which are not dummy arguments to 
statement functions are listed on the roll 
in the order of their appearance in active 
(non-specification) statements in the 
source module. Variables which are defined 
in specification statements, but which are 
never used in the source module, are not 
entered on the roll. The group size for 
the SCALAR roll is eight bytes. The format 
of the group is: 


4 bytes 
rg ee ee re 1 
| <------------- scalar name---~—--—---—-~-—-—-—--—- | 
ce tar ec ae : ear esnne coat (eawcar aca at, { 
| ------------------- > | TAG | 0 | 
bte2ecee eee eel ee rn coy eer Bd eee ee J 


The TAG field appearing in the seventh byte 
of the group indicates the mode and size of 


, the variable in the format of the TAG field 
" of a pointer. 


In Allocate, the information left on the 
SCALAR roll by Parse is replaced by infor- 
mation indicating the storage assigned for 
the variable. The resulting format of the 


group is: 

4 bytes 
i a a a ae poe sce Gero eS ee 1 
] TAG |DBG/CEAD | displacement | 
}-+------- ah a ie eee a ape ee ee One eee | 
] base table pointer | 
a ee ea J 


The TAG field appearing in the first byte 
is unchanged, except in location, from the 
TAG field held in the SCALAR roll group 


during Parse. The DBG/CEAD flag (in the 
second byte) is logically split into two 
hexadecimal values. The first of these 


.indicates debug references to the variable; 


the value is 1 for a scalar referred to in 
the INIT option; otherwise, the value is 
ZCLO. The second hexadecimal value is 
nonzero if the variable is in COMMON, a 
member of an EQUIVALENCE set, or an argu- 
ment to a subprogram or a global dummy; 
otherwise, it is zero. The displacement in 
bytes 3 and 4, and the base table pointer 
in the second word, function together to 
indicate the storage location assigned for 
the variable. ‘The base table pointer spe- 
cifies a BASE TABLE roll group; the dis- 
placement is the distance in bytes from the 


location contained in that group to the 
location of the scalar variable. If the 
scalar is a call by name dummy, the base 


table pointer is replaced by a pointer to 
the GLOBAL DMY roll group defining it, and 
the displacement is zero. 
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The SCALAR roll is 
fied, 


checked, but modi- 
during Unify, Gen, and Exit. 


ROLL 44: HEX CONST ROLL 

This roll holds the hexadecimal con- 
stants used in source module DATA 
Statements. 


The format of the roll is identical for 
all phases of the compiler. The group size 
is 16 bytes. Two hexadecimal characters 
are packed to a byte, and constants which 
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occupy fewer than 16 characters are right- 
adjusted in the group with leading zeros. 


In Parse, this roll holds the names of 
variables listed in DATA statements) and 
variables for which data values are pro- 
vided in Explicit specification statements. 
The names are entered on the roll when they 
are found in these statements. The group 
size for this roll is eight bytes. The 
groups have the following form: 
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(ae eee ee ee a gee ee ee 1 
| <----~----~---—- Variable name—-—-—-—-——-——--—--—-—-— | 
j= S 3S a aaa { 
|------------------- >| 0 | 
Hea ane noe Ercan at treed ce ee NE eh aN ey hE J 

This information is used to ensure that 


no data values are provided in the source 
module for dummy variables. The informa- 
tion is left on the roll throughout Parse, 
but is cleared before Allocate operates. 


In Allocate, binary labels and the names 
of statement functions, scalar variables, 
arrays, global subprograms, and used 
library functions are placed on the roll in 
order. The group size for this roll is 
four bytes. Each label entered on the roll 
occupies one word; the names occupy two 
words each and are left-justified, leaving 
the last two bytes of each name group 
unused. 


The encoded information is placed on 
this roll by Allocate as its operations 
modify the rolls on which the information 
was Originally recorded by Parse. Thus, 
all the labels appear first, in the order 
of their appearance on the LBL roll, ete. 
The information is used by the Exit phase 
in producing the object module listing (if 
the LIST option is specified by the user). 


ROLL 46: LITERAL TEMP 


ce eaeSinmneendiieias natremennetieee tenterecnaiennesnararenedieaeeeiiaennmetieentaa t satenaaneniemmmenmmemendemmandbenmeatemmeaneaenatemamaenena’ 


(TEMP LITERAL) ROLL 


This roll is used only in Parse, where 
it holds literal constants temporarily 
while they are being scanned. The group 
Size for the LITERAL TEMP or TEMP LITERAL 
roll is four bytes. Literal constants are 
placed on the roll one character per byte, 
or four characters per group. 


ROLL 47: COMMON DATA TEMP ROLL 


This roll holds the information from the 
COMMON DATA roll temporarily during the 
operation of Allocate, which is the only 
phase in which this roll is’ used. The 
group size for the COMMON DATA TEMP roll is 
eight bytes. The format of the group is 
identical to that of the COMMON DATA roll, 
namely: 


4 bytes 
Bie a ee Fe ee gg 1 
|<-—----—--------- variable------—-—--—---—--—--—-- | 
|---------------—---- ~------------------- { 
| ------- name------—-- >| 0 | 
Teen en crate ee ce eins Pan cnt eanyee US a oe Jj 
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ROLL 47: FULL WORD SCALAR ROLL 


This roll is used only 
where it holds the names of 


in Allocate, 
all fullword 


scalar variables defined by the source 
module. The group size is eight bytes. 
The format of the group on the roll is: 
4 bytes 

She ee ee ee ee - 
| <--~--------~-- scalar name—-—-—-——-—-——-—-—---—~- 
pHa sS SSS Sees » cae eaSeinnia? Suiee meena a { 
| —-------—~—-----~—-—---~- >| TAG | 0 | 
tie pet ate Oe ee eae a oo a 4 
where the TAG indicates the mode and size 
of the variable. This information is held 
on this roll only temporarily during the 


assignment of storage for scalar variables. 


ROLL 48: COMMON AREA ROLL 


This roll is used only in Allocate, 
where it holds COMMON block names and sizes 
temporarily during the allocation of COMMON 
storage. The group size for the COMMON 


AREA roll is twelve bytes. The format of 
the group on the roll is: 

4 bytes 
re es ge pe ee Soe 1 
| <-------------- block name--~—-—-—--—---—--—---- | 
|-------~------------ .--------- { 
|-----------------— >| 0 | 
}-----~~—-----~------ + —_----_----------- { 
| block size (bytes) | 
ae Pe ee A J 


ROLL 48: _NAMELIST ALLOCATION ROLL 


This roll is used only in Allocate, 
where it holds information regarding NAME- 
LIST items temporarily during the alloca- 
tion of storage for the NAMELIST tables. 


The group size for this roll is twelve 
bytes. The format of the group is: 
4 bytes 

Lee Sen ae en ae tA eer ae Me ed INE eR PORE OC RONEN ee aR 
| <-------—----- variable name-—~--—---—---—-—---—- | 
|-—------------------ y—~------------------ { 
| ------------------- >| 0 | 
}-------------------- 4----~~~------~------ { 
| pointer | 
ee ee 4 
where the pointer indicates’ the group 


defining the variable on either the SCALAR 
or ARRAY roll. 
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ROLL 49: COMMON NAME TEMP ROLL 


This roll is used only in Allocate, 
where it holds the information from the 
COMMON NAME roll temporarily. The group 
size for the COMMON NAME TEMP roll is 
twelve bytes. The format of the group is 


therefore identical to that of the COMMON 
NAME roll: 
4 bytes 

Go Se See ee ee ee ee ee 1 
| <-—--~---------- block name—--—--——----—-—-—-—-—--- | 
}-------------------- q7------------------- { 
|---------------—--- >| 0 | 
|-----------~-------- 4-—-—-—-----~-------- { 
| COMMON DATA pointer | 
a a a J 


where the COMMON DATA pointer points to the 
list of variables in the COMMON block. 


ROLL 50: EQUIV ALLOCATION ROLL 


This roll is used only during Allocate, 


and is not used in any other phase of the 
compiler. When the allocation of storage 
for EQUIVALENCE variables has been com 


pleted, the information which has been 
produced on the GENERAL ALLOCATION roll is 
moved to this roll. The group size for the 
EQUIV ALLOCATION roll is twelve bytes. The 
format of the group is, therefore, ident- 
ical to that on the GENERAL ALLOCATION 
roll: 


4 bytes 
GSS a AR RN a i Se 1 
| <-----—---------- variable-~-—-—--——-—-—-—~—-—-—-—-—--- | 
i as a aca Mees er ee { 
| ------- name-——--—— ——> | displacement | 
|-—----------—-------1-----------------—- 1 
| base table pointer | 
cee eee Se ee ree J 


where the base table pointer indicates the 
group on the BASE TABLE roll which will be 
used for references to the variable. The 
displacement is the distance in bytes from 
the location indicated in the BASE TABLE 
roll group to the location of the variable. 


ROLL 51: RLD ROLL 

This roll is used only in Allocate and 
Exit; it is not used in Parse. In both 
Allocate and Exit, the roll holds’ the 


information required for the production of 
RLD cards. The group size for the RLD roll 
is eight bytes. The group format is: 
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4 bytes 
pee es ae ee 
| area code | ESD # | 
|------------------------------ 41--—-----—- { 
| address | 
PR nt ODS re a ee ee IE rel sl eo ET eT OPO re Re a J 
where the area code indicates the control 


section in which the variable or constant 
is contained. The ESD number governs’ the 
modification of the location by the linkage 
editor, and the address is the location 
requiring modification. 


Information is placed on this roll by 
both Allocate and Exit, and the RLD cards 
are written from the information by Exit. 
The entries made on the RLD roll by Alloc- 
ate concern the NAMELIST tables; all 
remaining entries are made by Exit. 


ROLL 52: COMMON ALLOCATION ROLL 


This roll is used only in Allocate and 
is not used in any other phase of the 
compiler. When the allocation of COMMON 
storage has been completed, the information 
which has been produced on the GENERAL 
ALLOCATION roll is moved to this roll. The 
group size for the COMMON ALLOCATION roll 
is twelve bytes. The format of the group 
is, therefore, identical to that on the 
GENERAL ALLOCATION roll: 


4 bytes 
Sa IE RL A i ima cea 1 
| <--~--—-—--~—------~- variable--——-—-—--—-—-—-—--—-—-—-- | 
}-------------------- y-------------------- | 
|------- name—-—————— >| displacement | 
}--------------------1-------------------- { 
| base table pointer | 
a a ae ee ee J 
where the base table pointer indicates the 


group on the BASE TABLE roll which will be 
used for references to the variable. 


The displacement is the distance in 
bytes from the location indicated in the 
BASE TABLE roll group to the location of 
the variable. 


ROLL 52: LOOP CONTROL ROLL 


This roll is created by Unify and is 
used by Gen. The information contained on 
the roll indicates the control of a loop. 


The group size for the LOOP CONTROL roll 
is twelve bytes. The format of the LOOP 
CONTROL roll group in Unify and Gen is: 
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4 bytes 
re se ee ee ee ee 1 
} traits ] coefficient ] 
pase reH ses 5a RE ao a CL 4 
} register (this loop) | 
}----------------------------------------- { 
] base or register (outer loop) | 
ee Ca PE Dea RN ee aN cee aD ee NE ey EN oe J 


where the first byte of the first word 
(traits) indicates whether the coefficient 
is initiated by a direct load. The remain- 
ing three bytes is the coefficient, which 
is the multiplier for the induction vari- 
able. The second four bytes is the regis- 
ter where the coefficient is required. The 
base is the source of initialization of the 
register; it can be either a constant, 


register, or an address. 


ROLL_53:__FORMAT ROLL 


This roll is first used in Parse, where 
the FORMAT statements are placed on it. 
See Appendix D for the description of the 
encoding of the FORMAT statement. 


Each group of the FORMAT roll is in the 
form of a plex (the group size is given in 
word 0). The configuration of a FORMAT 
group in Parse is: 


word 0 contains a value which indicates the 
number of words in the group on the roll. 
The pointer to the LBL roll points to the 


label of the corresponding FORMAT state- 
ment. The next word gives the number of 
bytes of storage occupied by this particu- 


lar FORMAT statement. The ellipses denote 
that the encoded FORMAT follows this con- 
trol information. 


In Allocate, the FORMATs are replaced by 
the following: 


4 bytes 
(Feet Se a Men Pain ge eee 1 
] 0 i displacement ] 
}—--—---—--—-—--—-—---—-~-~—--41--—---~---—-----—— ae ee oe eee oe 4 
1 base table pointer | 
i Oe J 
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which, taken together, indicate the begin- 
ning location of the FORMAT statement. 
These groups are packed to the BASE of the 
roll; that is, this information for the 
first FORMAT appears in the first two words 
on the roll, the information for the second 
FORMAT appears in words 3 and 4, etc. 


The LBL roll group which defines’ the 
label of the FORMAT statement holds a 
pointer to the displacement recorded for 
the statement on this roll. 


The FORMAT roll is retained in this form 
for the remainder of the compilation. 


ROLL 54: SCRIPT ROLL 


This roll is created by Parse as each 
appropriate array reference is encountered. 
The array reference indicated includes sub- 
Scripts (one or more) which use the 
instruction variable ina linear fashion. 
Unify uses the contents of the roll. 


The group size of the SCRIPT roll is 16 
bytes, plus an additional 4 bytes for each 
DO loop that is open at the point of tne 
array reference represented by the entry. 
The group format of the SCRIPT roll in 
Parse and Unify is as described for the 
NONSTD SCRIPT roll. 


LOOP DATA ROLL 


This roll contains the initializing and 
terminating data, and indicates the induc- 
tion variable and the nesting level of the 
particular loop from which this entry was 
created. 


The roll is created in Parse at the time 
that the loop is encountered. The group 
size of the LOOP DATA roll is 20 bytes. 
The group format of the roll in Parse is: 


4 bytes 
Qe eee ee ee ee te ae ee ee 7 
| TAG | nest level | 
}------ a es a ee et ane 
] pointer to induction variable | 
Vo Seo ee eee eee eee ee eee eee 
| pointer to ny, (initial value) | 
Ee ae pn Pa a PP NP a NN OE Se ny J 


where the TAG byte contains a X‘*80' when an 
inner DO loop contains a possible extended 
range. The X*'80* is placed there by Parse 
and tested by Gen. The Gen phase then 
produces object code to save general regis- 
ters 4 through 7 at the beginning of this 
DO loop so that the registers are not 
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altered in the extended range. The next 
three bytes indicate the nest level of the 


loop. The second word is a pointer to the 
SCALAR roll group which describes. the 
induction variable. The third word of the 


group points to the initializing value for 
the induction variable, which may be repre- 
sented on the FX CONST roll or the SCALAR 
roll. 


During the operation of the Unify phase, 
the roll is completed with pointers to the 
LOOP CONTROL roll. During Unify, the LOOP 
CONTROL roll is also created; therefore, 
insertion of the pointers is done while the 
loop control data is being established. 


The following illustration shows’ the 
configuration of the LOOP DATA roll as it 
is used in Unify: 


4 bytes 
Ce a a ee ee 1 
| nest level | 
bere gee ee ee q 
] SCALAR pointer (induction variable) ] 
}----------------------------------------- 4 
] FX CONST pointer or SCALAR pointer | 
Pe eee ee ee ae 
] LOOP CONTROL pointer (start init.) | 
}----------------------------------------- { 
] LOOP CONTROL pointer (end init.) j 
an rE pt Sr snc ee a ar ie Se RETA eae ae ane J 


The last two words (eight bytes) of the 
group are inserted by Unify. These point- 
ers point to the first and last LOOP 
CONTROL roll groups concerned with this 
1oop. 


ROLL 36: _ PROGRAM _SCRIPT_ROLL 


This roll is a duplicate of the SCRIPT 
roll. The contents of the SCRIPT roll are 
transferred to the PROGRAM SCRIPT roll in 
Parse as each loop is closed. Each loop is 


represented by a reserved block on the 
roll. 

The group size of the PROGRAM SCRIPT 
roll is 16 bytes, plus an additional 4 


bytes for each nest level up to and includ- 
ing the one containing the reference repre- 
sented by the entry. The format of the 
PROGRAM SCRIPT roll group in Parse and 
Unify is as follows: 
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4 bytes 
er ee ee ee ge eee er 7 
| traits | frequency | 
}----------1---~-------------------------- { 
j ARRAY REF pointer | 
}----------------------------------------- { 
] ARRAY pointer | 
p----------------------------------------- 
| ARRAY offset pointer | 
}----------------------------------------- 
| induction variable coefficient | 
}-------~--------------------------------- 


| induction variable coefficient | | 
] (nest level = 2) | 


(}----------- ~---------------------------- 

| | | ° | 
| : | 
| . | 
}-~---~-~--~----~-~------------------------ { 
| induction variable coefficient | 
| (nest level = n) | 
Bee eee ee ee J 
See the NONSTD SCRIPT roll for further 
description. 


ROLL 56: ARRAY PLEX ROLL 


This roll is used only in Gen, where it 
handles subscripts (array references) which 
are not handled by Unify. The group size 
for the ARRAY PLEX roll is twelve bytes. 
The format of the group on the roll is: 


4 bytes 
ee Te ry ee gg gg eg wT, ee pe 7 
{ pointer to array | 
}----------------------------------------- { 
| pointer to index | 
}--------------~-------------------------- { 
j displacement | 


The pointer in the first word of the group 
points to the ARRAY REF roll when the 
subscript used contains DO dependent linear 
subscripts (which are handled by Unify) and 
non-linear variables. Otherwise, the 
pointer refers to the ARRAY roll. 


The second word of the 
pointer to the index value to be used in 
the subscripted array reference. This 
pointer points to general register 9 on the 


group holds a 


FX AC roll if the index value has been 
loaded into that register; if the index 
value has been stored in a temporary loca- 


tion, the pointer indicates the proper 
location on the TEMP AND CONST roll; if the 
index value is a fixed constant, the 
pointer indicates the proper group on the 
FX CONST roll. When the information in 
this word has been used to construct the 
proper instruction for the array reference, 
the word is cleared to zero. 


The displacement, in the third word of 
the group, appears only when the first word 
of the group holds a pointer to the ARRAY 
roll. Otherwise, the displacement is on 
the ARRAY REF roll in the group indicated 
by the pointer in the first word, and this 
word contains the value zero. This value 
is the displacement value to be used in the 


instruction generated for the array 
reference. 
ROLL 57: ARRAY REF ROLL 

Pointers to this roll are inserted into 
the Polish notation by Parse. At the time 
that these pointers are established, the 


ARRAY REF roll is empty. The pointer is 
inserted into the Polish notation when an 
array reference includes linear loop- 
controlled subscripts. 


The roll is initially created by Unify 
and completed by Gen. The group size of 
the ARRAY REF roll is 16 bytes. The format 
of the ARRAY REF roll group as it appears 
in Unify is as follows: 


Ld Dek, ehe2 3 

0 12 56 90 1 
a sane rere Mee Mees er ee ee 1 
| IR. [Ro | offset | 
eee Ds eal oa Be ee a 
| pointer to register (R,) or to the | 
{| TEMP AND CONST roll | 
ba ee he ee eee 
| pointer to register (Rj) or to the | 
| TEMP AND CONST roll | 
|--------~-------------------------------- | 
| pointer to the ARRAY roll | 
a et ee ee J 
The first word of the group contains the 


low 20 bits of an instruction which is 
being formatted by the compiler. R, and Rs 
are the two register fields to be filled 
with the numbers of the registers to be 
used for the array reference. Word 2 of 
the group contains the pointer indicating 
the register to be assigned for R,. Word 3 
of the group indicates the register Ro. 
When R, and Ra have been assigned, the 
second and third words are set to zero. 


Gen completes the entry by adding the 
operation code to the instruction that is 
being built. The format of an ARRAY REF 
roll group in Gen is: 
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111112 3 
0 12 56 90 1 
(ee oe Ge ee Oe eee eS et 1 
Jop code 1R1 [Ra | offset | 
eae oe eo he et eee eet 
| 0 or TEMP AND CONST roll | 
| pointer | 
|---------------~-----~------------------- { 
| 0 or TEMP AND CONST roll | 
| pointer 
Se ec ig ae ea | 
| ARRAY pointer | 
erage ze Rnrame OE pr RIOT cee eR Re en Ve eee eer J 
ROLL 58: ADR CONST ROLL 
This roll contains relocatable informa- 


tion that is to be used by Exit. 


Unify creates the roll which contains a 
pointer to the TEMP AND CONST roll and an 
area code and displacement. The pointer 
indicates an entry on the TEMP AND CONST 
roll which must be relocated according to 
the area code. The displacement is’ the 
value to be placed in that temporary 
storage and constant area location. 


The group size of the ADR CONST roll is 
eight bytes. The format of the ADR CONST 
roll group in Unify is: 


4 bytes 
Re ieee ee ae Woe oe eee 1 
| area code | displacement | 
|-------------------- 4-~----~---~--------- { 
| TEMP AND CONST pointer | 
a et J 


These groups are constructed by Unify to 


provide additional base table values for 
indexing. 
ROLL 59: AT ROLL 

This roll is constructed in Parse and 
used in Gen. It is not used in the 
remaining phases. The group size for this 
roll is twelve bytes. The format of the 
group is: 

4 bytes 
ee a er ee ee 1 
| AT label pointer | 
---------~- - --- - - - - a da Salo Eat ete lace as 4 
| debug label pointer | 
|----------------------------------------- { 
| return label pointer | 
ae Sa a Ie SO rey ene ear Re een ea 4 


All three of the pointers in the group 
point to the LBL roll. The first points to 
the label indicated in the source module AT 
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statement. The second points to the made 
label supplied by the compiler for the code 
it has written to perform the debugging 
operations. The third label pointer indi- 
cates the made label supplied for the point 
in the code to which the debug code 
returns; that is, the code which follows 
the branch to the debugging code. 


ROLL 60: SUBCHK ROLL 


This roll is initialized in Parse and 
used in Allocate. It does not appear in 
later phases. The group size for this roll 
is eight bytes. The format of the group 
is: 


4 bytes 
Ce IT eee ee ee ae ae ee 1 
| <---—~-~---—--—-=-variable name-—---—-—-—-—-——-—-—---—- | 
naa REE OERGn aE Ss a as re eartacrs { 
| ------------------- >| 0 | 
(dost ee ee ee IDR rene ee ate eR eee See J 


Each group holds the name of 
listed in the SUBCHK option of a 
module DEBUG statement. 


an array 
source 


ROLL 60: NAMELIST MPY DATA ROLL 


This roll is set up during the construc- 
tion of the NAMELIST tables in Allocate. 
In Exit, the roll is used to complete the 
information in the NAMELIST tables. The 
roll is not used in the other phases of the 


compiler. The group size for the NAMELIST 
MPY DATA roll is eight bytes. The format 
of the group on this roll is: 

4 bytes 
ee ry eS ee eee ere en erage ene ge 1 
| multiplier constant | 
|----------------------------------------- 
| address | 
Se a I OE a I Meese eRe REE ee nm rs ee Pep eT re ine ee eta eee J 


The multiplier constant refers to an 
array dimension for an array mentioned in a 
NAMELIST list. The address is the location 
in a NAMELIST table at which a pointer to 
the multiplier constant must appear. In 
Exit, the constant is placed in the tem- 
porary storage and constant area of the 
object module, and a TXT card is punched to 
load its address into the location speci- 
fied in the second word of the group. 


160 


ROLL 62: GENERAL ALLOCATION ROLL 


This roll is used only during Allocate, 


and is not used in any other phase of the 
compiler. During the various allocation 
operations performed by this phase, the 


roll holds the information which ultimately 
resides on the remaining ALLOCATION rolls. 
The group size for the GENERAL ALLOCATION 
roll is twelve bytes. The format of the 
group is: 


4 bytes 
Sa agen geen ee ee ES tg Gone 1 
| <--—---—-—--—----—-—-- variable-—-—-—-—-—-—-———~-—-—-—-—-—--—-— | 
}----~---------------7---------------------J 
| ----—-——-—name--——-—-—-—_- >| displacement | 
|------------------- 4--------------------- { 
i base table pointer | 
Ds sa aa a a ee ad ee ee J 


where the base table pointer indicates the 
group on the BASE TABLE roll which will be 
used for references to the variable. 


The displacement is the distance in 
bytes from the location indicated in the 
BASE TABLE roll group to the location of 
the variable. 


During the allocation of COMMON, the 
third word of each group holds a relative 
address until all of a COMMON block has 
been allocated, when the relative address 
is replaced by the pointer as indicated 
above. During the allocation of EQUIVA- 
LENCE variables, relative addresses within 
the EQUIVALENCE variables are used and then 
replaced by pointers as for COMMON. 


ROLL 62: CODE ROLL 
This roll holds the object code 
generated by the compiler, in binary. This 


roll is first used in Gen, where the object 
code for the entire source module is built 
up on the roll. 


The group size for the CODE roll is 
eight bytes. Two types of groups are 
placed on the roll during the operations of 
Gen. The first type of group is added to 
the roll by the instructions IEYBIN, IEYBIM 
and IEYBID. In this type of group, the 
binary instruction is left-justified in the 
eight bytes. When the instruction occupie- 
sonly two bytes, the first word is com- 
pleted with zeros. When the instruction 
occupies two or four bytes, the second word 
of the group holds a pointer to the defin- 
ing group for the operand of the instruc- 
tion. When the instruction is a 6-byte 
instruction, the last two bytes of the 
group contain zero, and no pointer to the 


operand appears. A unique value is’ placed 


on the CODE roll by these instructions to 
indicate the beginning of a new control 
section. 


The second type of group entered on the 
CODE roll appears as a result of the 
operation of one of the instructions IEYPOC 
and IEYMOC. These groups do not observe 
the 8-byte group size of the roll, but 
rather begin with a word containing a 
special value in the upper two bytes; this 
value indicates an unusual group. The 
lower two bytes of this word contain the 
number of words in the following informa- 
tion. This word is followed by the binary 
instructions. 


The object module code is written out 
from this roll by the Exit phase of the 
compiler. 

ROLL 63: AFTER POLISH ROLL 
This roll is constructed in Parse, 


remains untouched until Gen, and is de- 
stroyed in that phase. 


The AFTER POLISH roll holds the Polish 
notation produced by Parse. The Polish for 
one statement is moved off of the POLISH 
roll and added to this’ roll when it is 
completed; thus, at the end of Parse, the 


Polish notation for the entire source 
module is on this roll. 
In Gen, the Polish notation is returned 


to the POLISH roll from the AFTER POLISH 
roll for the production of object code. At 
the conclusion of the Gen phase, the roll 
is empty and is no longer required by the 
compiler. The group size for this roll is 
four bytes. 


WORK AND EXIT ROLLS 


Because of the nature and frequency of 
their use, the WORK roll and the EXIT roll 
are assigned permanent storage locations in 
IEYROL, which is distinct from the storage 
area reserved for all other rolls. AS a 
result, these rolls may never be reserved 
and are manipulated differently by the POP 
instructions. The group stats and the 
items BASE and TOP are not maintained for 
these rolls. The only control item main- 
tained for these rolls corresponds to the 
item BOTTOM, and is carried in the general 
register WRKADR (register 4) for the WORK 
roll and EXTADR (register 5) for the EXIT 
roll. 


Appendix B: 


WORK ROLL 


often used to hold 
intermediate values. The group size for 
this roll is four bytes. The name WO is 
applied to the bottom of the WORK roll (the 
last meaningful word), Wi refers to the 
next-to-bottom group on the WORK roll, etc. 
In the POP instructions these names are 
used liberally, and must be interpreted 
with care. Loading a value into wO is 
storage into the next available word, 
(WRKADR) + 4, unless specifically otherwise 
indicated, while storage from WO to another 
location involves access to the contents of 
the last word on the roll, (WRKADR). 
WRKADR is normally incremented following a 
load operation and decremented following a 
store. 


The WORK roll is 


EXIT ROLL 


The EXIT roll holds exit addresses for 
subroutines and, thereby, provides for the 
recursion used throughout the compiler. 
The ANSWER BOX is also recorded on the EXIT 
roll. The group size for the EXIT roll is 
twelve bytes. The first byte is the ANSWER 
BOX. The remaining information on the roll 
is recorded when a subroutine jump is 
performed in the compiler code; it is used 
to return to the instruction following the 
jump when the subroutine has completed its 
operation. 


The values placed on the EXIT roll 
differ, depending on the way in which the 
subroutine jump is performed. As a result 
of the interpretation of the IEYJSB POP 
instruction, the last three bytes of the 
first word contain the location of the 
IEYJSB plus two (the location of the POP 
instruction following the IEYJSB, the 
return point); the second word of the group 
holds an address within the IEYJSB subrou- 
tine; the third word contains the location 
of the global label for the routine from 
which the subroutine jump was made plus two 
(the value of LOCAL JUMP BASE in that 
routine). 


As an example of how a subroutine jump 
is accomplished by means of machine lan- 
guage instructions, the following instruc- 
tions are used: 

L TMP, GO052I 
BAL ADDR, JSB STORE IN EXIT 
to replace the POP instruction 


ITEYJSB G0052JI 


Rolls Used in the Compiler 161 


In this case, no value is placed in the 
last three bytes of the first word; the 
second word holds the address of the 
instruction following the BAL; the third 
word holds the location of the global label 
immediately preceding the BAL plus two (the 
value of POPADR when the jump is’ taken, 
which is also the value of LOCAL JUMP BASE, 


162 


the base address to be used for local jumps 
in the routine from which the subroutine 


jump was made). 


On return from ae subroutine, these 
values are used to restore POPADR and LOCAL 
JUMP BASE and they are pruned from the EXIT 
roll. 


This appendix shows the format of the 
Polish notation which is generated by the 
compiler for each type of statement in the 
FORTRAN IV (G) language. 


GENERAL FORM 


The format of the Polish notation 
depends on the statement type, but always 
terminates with the control driver which 
indicates the type of statement: 


4 bytes 

ey eo 1 
}------------------------------ { 

| ° |{ Polish for 
| ° | +> statement 
| : | 
|------------------------------ { 
}~----------------------------- { 

{control driver | 

Ene A a na Map Pear ne ven ire ee eed ee rede ae z 
[statement number | 

Uo ee eee J 


The statement number is an integer whose 
value is increased by one for each state- 
ment processed. This value is used only 
within the compiler. 


LABELED STATEMENTS 


For labeled statements, a pointer to the 
label is inserted between the control driv- 
er and the statement number: 


4 bytes 
Cee egg eee ee ae 1 
|------------------------------ { 
| . | 
| ° |>Polish for 
| . |\ statement 
|------------------------------ { 
|------------------------------ 
Jcontrol driver | 
Ra RR nea en ea oe ne ee NEED Feet ese ar ae aren oT | 
{label | 
Ee ene eee ene ee eee eer ee 
Jpointer to statement label [ 
}------------------------------ { 
|statement number | 
Vee ant ee eerie ec neue ner oe ie eee, eee ee ee 4 


The label information is not included in 
the following descriptions of the Polish 
notation for individual statement types. 


APPENDIX C: POLISH NOTATION FORMATS 


ARRAY REFERENCES 


The Polish notation for an array 
reference whose subscripts are all linear 
functions of DO variables consists’ simply 
of a pointer to the appropriate group on 
the ARRAY REF roll. The Polish notation 
generated for all other references to an 
array element is: 


4 bytes 

Se MRC CE one eRe pee Say oT ee eee rn a 
Jarray driver | 
aaa gees ale acne eee ret ae | 
|pointer to array | 
|—----------------------—-- { 
|-------------~--------------- 1). 
| ° |f Polish for 
| ° |>subscript 1 
| ° | 
}----------------------------- { 
}----------------------------- { 
[multiplier | 
|----------------------------- { 
Jargument driver | 
}----------------------------- { 
}----------------------------- 4) 
| ° |f Polish for 
| . |[>subscript 2 
| . | 
SEE EE | 
| ---------------------------- { 
Jmultiplier [ 
ae eae { 
Jargument driver | 
Pea ee ee { 
| ‘ | 
| - | 
| . | 
}----------------------------- { 
}----------------------------- { 
{ P lf Polish for 
[ ° |>subscript 7 
| . | 
}------------~---------------- { 
}-----------------------------4 
|multiplier | 
Fe a Red aR ee ene yan ee eee | 
[argument driver | 
|----------------------------- { 
|dummy array pointer | 
a ee eee J 


The pointer to the array may indicate 
either (1) the ARRAY roll, when none of the 
subscripts used in the array reference are 
linear functions of DO variables, or (2) 
the ARRAY REF roll, when some, but not 
all, of the subscripts are linear functions 
of DO variables. The subscripts for which 
Polish notation appears are those which are 
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not linear functions of DO variables. Only 
the required number of subscripts appear. 


The multiplier following each subscript 
is the multiplier for the corresponding 
array dimension. This value is an integer 
unless the array is a dummy including dummy 
dimensions which affect this array dimen- 
Sion; in this case, the multiplier is 
represented by a pointer to the TEMP AND 
CONST roll. 


ENTRY STATEMENT 


The Polish notation generated for the 

ENTRY statement is: 
4 bytes 

SP rr ag rp rn en ee 1 
{pointer to ENTRY name | 
}----------------------------------------- { 
JENTRY driver | 
|----------------------------------------- { 
|statement number | 
Son a ea PES tt Oe EES ee ee 4 


The pointer points to the ENTRY NAMES 


roll. 


ASSIGN STATEMENT 


The Polish notation generated for the 
ASSIGN statement is: 


4 bytes 

a A aa 1 
[pointer to label | 
|----------------------------------------- { 
jpointer to variable | 
ae ae 4 
[ASSIGN driver | 
|----------------------------------------- 4 
|statement number | 
ae Se ee es a a ee a ee eee J 

ASSIGNED GO TO STATEMENT 
The Polish notation generated for this 

statement is: 
4 bytes 

eee aca AI Ur ee LLP IE Bee te PI Ree ED ee OPE 7 
|pointer to variable | 
Sa a ae ee ee | 
jJassigned GO TO driver | 
Pa ipa Pa eR rence et Se ag eae et a ene oR N OY ON ee PRONE ES eT ee | 
[statement number | 
Maa ee he Sa ee J 


LOGICAL IF STATEMENT 


The Polish notation generated for this 
statement is: 


4 bytes 
(ee ee 1 
|------------------------------ { 
| . if Polish for 
| a | logical 
| e || expression 
ee { 
(Se { 
|------------------------------ 4) 
| ‘ lf Polish for 
| ‘ |‘ statement 
| m | ce 
}------------------------------ { 
}---------------~-------------- { 

Jlogical IF driver [ 
ape Ie REL eee ent et MR Ler Ee Te een er | 
| statement number | 
cag hh een Ree a ee J 


RETURN STATEMENT 


The following Polish notation is pro- 

duced for the RETURN statement: 
4 bytes 

Gee Op ee eh ee eg Fe 1 
[pointer to I | 
}----------------------------------------- | 
J|RETURN driver | 
EE en ea ies en a Ee Po | 
|statement number | 
aa aa ak z) 


The pointer to I does not appear if the 
statement is of the form RETURN. 


ARITHMETIC AND LOGICAL ASSIGNMENT STATEMENT 


The Polish notation produced for this 
statement is: 


4 bytes 


a nnn 7] 


{pointer to variable to be set | 


}------------------------------4 


}————--~ —-——---—- -- -_-__-___--____ 

| ° lf Polish for 
| ° [> right side 
| : | 
}------------------------------ { 
}-----------~------------------ { 
Jassignment driver [ 

a a as Sc | 

jstatement number | 
a ees J 


The Polish notation for the right side 
of the assignment statement is in the 
proper form for an expression, and includes 
array references where they appear in the 
source statement. The variable to be set 
may also be an array element; in this case, 
the pointer to the variable to be set is 
replaced by the Polish notation for an 
array reference. 


UNCONDITIONAL GO TO STATEMENT 


The Polish notation produced for this 
statement is: 


4 bytes 
a ee ee re ee 1 
Jpointer to label | 
Se ee ee ee aden ae ee AOE Oe EE Lee eee en eae eee | 
{GO TO driver | 
a a a a wee ee | 
|statement number | 
a sede et SU oeet ere Oe tr OR eae eR ee J 

COMPUTED GO TO STATEMENT 
The following Polish notation is pro- 


duced for this statement: 


4 bytes 
ee ee 
jpointer to x1 | 
~---------------------------- 1] 
jpointer to x2 | 
t- a ea a ac ed a a eg me ae fe 
| ° | )>branch 
| ° |{ points 
| : | 
}------------------------------ { 
|pointer to xn | 
Rea Ren eee eee eR een ne SL eNO a 4 


Jnumber of branch points | 


}------------------------------ 


|pointer to variable I 


CS Rae ee Na in at IN Oe ae Pee ae | 
|computed GO TO driver | 
See ae eee e ae Oe AEN a a | 
jstatement number | 
ee J 


ARITHMETIC IF STATEMENT 


The following Polish notation is pro- 
duced for this statement: 


4 bytes 

a ee 1 
}------------------------------ i 
| e lf Polish for 
| ° |> expression 
| : | 
eee ner ereecun ede eetaire! 
Jpointer to x1 : hn 
re branc 
pointer to x2 points 

| 


The label of the next statement is 
inserted following the IF driver because 
the next statement may be one of the branch 
points referenced; if it is, code will be 
generated to fall through to that statement 
in the appropriate case(s). 


DO STATEMENT 


The following is the Polish notation 
produced for the statement DO x i= ml, m2, 
m3: 


4 bytes 

Se a Fa a ae is a a 1 
[pointer to Mz (test value) | 
}----------------------------------------- { 
|pointer to M3, (increment) | 
|----------------------------------------- { 
[pointer to LOOP DATA roll | 
}----------------------------------------- { 
|pointer to LBL roll | 
a a es a | 
|DO driver | 
Se ee oe Poe ee | 
|statement number | 
a se eS, 4 
The pointer to m3 appears, even if the 

increment value is implied. 
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CONTINUE STATEMENT 


The Polish notation produced for this 
statement is: 


4 bytes 
i aa a - 
| CONTINUE driver | 
i Lata a | 
{statement number | 
ee ee 4 
PAUSE AND STOP STATEMENTS 
The Polish notation produced for these 
Statements is: 
4 bytes 
ee ee 1 
jpointer to constant | 
Spake a ca ae ea rcp ape ae er | 
| PAUSE or STOP driver | 
ss ae a ee | 


For both the PAUSE 
STOP statement, the constant appears on the 


LITERAL CONST roll, regardless of its 
nature in the source statement. If no 
constant appears in the statement, the 
pointer to the constant points to the 


literal constant zero. 


END STATEMENT 


The Polish notation generated for the 
END statement is: 


BLOCK DATA STATEMENT 


The Polish notation generated for the 
BLOCK DATA statement is: 


statement and the © 


DATA STATEMENT AND DATA IN EXPLICIT 
SPECIFICATION STATEMENTS 


For each statement (DATA or Explicit 
specificdtion) in which data values for 
variables are specified, a Polish record is 
produced. This record ends with a DATA 
driver and a statement number. For each 
variable initialized by the statement, the 
following appears: 


4 bytes 
Sa A CN Sai aia 1 
jpointer to variable | 
|----------------------------------------- { 
|offset | 
MN a a a J 


The offset is the element number at which 
initialization begins; if it does not 
apply, this word contains the value zero. 


This information is followed by the pair 
of groups 


or, when the constant is literal, the three 
groups 


4 bytes 
a Ten DG er eee ee eee 1 
|repetition count | 
SRE aS Min rege es Re eye Pe eA een eel ee | 
|pointer to constant | 
a a ee ee ad eae Se | 
jnumber of elements | 
EP ONC fe ay lace na Pe ree NE ONO seep ee a J 


where the last group indicates the number 
of elements of an array to be filled by the 
literal constant. For array initializa- 
tion, one or more of the “constant" groups 
May appear. 


I/O_LIST 


notation for an I/O List 
contains pointers to the variables in the 
list, Polish notation for array references 
where they appear, and pointers and drivers 
to indicate implied DO loops. 


The Polish 


The I/O list 


((C(I), I=1,10),A,B) 


for example, results in the following 
Polish notation: 
4 bytes 

(ie er ee ee, ee ee 1 
Jpointer to Ms (test value) 
|----------------------------------------- { 
Jpointer to M3 (increment) 
ae a ae | 
|pointer to LOOP DATA roll | 
cS a a a ta ich i tt eee as J 


PIE OE RE a et Ee EE lant PE eR SCE IO NE OR een | 
[1 (number of subscripts) | 
|-------------------- ~------ ~------------- { 
[pointer to I (subscript) | 
|----------------------------------------- 
[argument driver | 
Se aire si eee le et | 
[array driver | 
|---------~--------------- ~-~-------------- { 
{|IOL DO Close driver | 
|----------------------------------------- { 
{pointer to A 
|----------------------------------------- { 


The area between, and including, the 
implied DO driver and the array driver is 
an array reference, as it would appear 
wherever C(I) was referred to in source 
module statements. 


INPUT STATEMENTS 


The following paragraphs discuss’ the 
Polish notation produced for all forms of 
the READ statement except direct access. 


FORMATTED READ 


For the form READ (a,b) list, the for- 
matted READ, the Polish notation generated 
iS: 


see ta Sec | 

|IOL driver | 
}--~~-------------------------- { 
}------------------------------ 4) 

| : [f Polish for 
| - [>I7O list 
| : | | 
}------------------------------ { 
|------------------------------ { 

|code word | 
}-----------~------------------ { 

}IBCOM entry, formatted READ | 

Bt a ee ee | 

[pointer to IBCOM | 

be Gaines eos ee eee | 

|READ WRITE driver | 

se Ae re a Se ee | 
{statement number | 

Das eee eee 4 


The pointer to the FORMAT points either 
to the label of the FORMAT statement or to 
the array in which the FORMAT is_- stored. 
The END= and ERR= drivers and the pointers 
following them appear only if the END and 
FRR options are used in the statement; 
either one or both may appear, and in any 
order with respect to each other. If no 
I/O list appears in the statement, the 
Polish for the I/O list is omitted, but the 
IOL driver appears nonetheless. 


zero in its 
low- 


The code word contains 
high-order three bytes, and, in its 


order byte, a unique code specifying the 
Operation and unit for the input/output 
statement. This code word distinguishes 


among the various READ statements and is 
inserted in the code produced for them. 


Input/output operations are performed by 
the RUNTIME routines. IBCOM is a transfer 
routine in RUNTIME through which all input/ 
output except NAMELIST is performed. The 
IBCOM entry for formatted READ indicates an 
entry point to this routine. (See Appendix 
D for further discussion of IBCOM.) The 
pointer to IBCOM points to the routine on 
the GLOBAL SPROG roll. 
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NAMELIST READ 


For the form READ (a,x), the NAMELIST 
READ, the following changes are made to the 
Polish notation given above: 


1. The FORMAT driver is 
NAMELIST driver. 


replaced by a 

2. The pointer to the FORMAT is replaced 
by a pointer to the NAMELIST. 

3. The code word value is changed. 

4, The IBCOM entry is replaced by the 
value zero, Since NAMELIST input/ 


output is not handled through IBCOM. 


5. The pointer to IBCOM is replaced by a 
pointer to the NAMELIST READ routine. 


6. No I/O list may appear. 


UNFORMATTED READ 


For the form READ (a) list, the unfor- 
matted READ, the following changes are made 
to the Polish notation given above: 


1. The FORMAT driver is removed. 
2. The pointer to the FORMAT is removed. 
3. The IBCOM entry, 


replaced by the 
matted READ. 


formatted READ, is 
IBCOM entry, unfor- 
READ STANDARD UNIT 


For the form READ b, list, the standard 
unit READ statement, the following changes 


are made to the Polish notation given 
above: 
1. No END= or ERR= drivers may appear, 


nor may the corresponding pointers to 
labels. 


2e The code word value is changed. 


OUTPUT STATEMENTS 


The following paragraphs discuss’ the 
Polish notation produced for all forms of 
the WRITE statement except direct access, 
and for the PRINT and PUNCH statements. 
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FORMATTED WRITE 


For the form WRITE (a,b) list, the 
formatted WRITE, the Polish notation 
generated is: 

4 bytes 
ere en Re ee te ee ee 1 
Jpointer to a data set | 
}------------------------------ { 
| FORMAT driver ; 
Sc os ne ee ee | 
Jpointer to FORMAT | 
ae cae a ee | 
JEND= driver | 
}------------------------------ { 
Jpointer to END label | 
atid de ed Sei ale tual ea cae J 
JERR= driver | 
fo oe ee | 
Jpointer to ERR label | 
pe asa i a ge Me Ns git | 
{IOL driver | 
}------------------------------ { 
}------------------------------ 4) 
| . lf Polish for 
1 . ‘|sI7oO list 
| : | 
}------------------------------ { 
a ne ee ee eaE ae Ae Oe ed Me NPN aE OE AE | 
|code word | 
ath te So ee ee | 


J]IBCOM entry, formatted WRITE | 


}------------------------------ { 
|pointer to IBCOM | 


a ne oe ante ETE Ea Sen ny en aE Eve RIE | 
JREAD WRITE driver | 
}------------------------------ { 
|jstatement number | 
sp ee 4 


The pointer to the FORMAT points either 
to the label of the FORMAT statement or to 
the array in which the FORMAT is_ stored. 
The END= and the ERR= drivers and the 
pointers following them appear only if the 
END and ERR options are used in the state- 
ment; either one or both may appear, and in 
any order relative to each other. If no 
I/O list appears in the statement, the 
Polish for the I/O list is omitted, but the 
IOL driver appears nonetheless. 


The . code word contains zero in its 
high-order three bytes, and, in its low- 
order byte, a unique code specifying the 
Operation and unit for the input/output 
statement. This code word distinguishes 
among the various output statements and is 
inserted in the code produced for them. 


Input/output operations are performed by 
the runtime routines. IBCOM# is the ini- 
tial entry of a transfer vector in IHCFCOMH 
through which all input/output except NAME- 
LIST is performed. (IHCFCOMH is further 
discussed in Appendix F.) The pointer to 


IBCOM# points to the routine on the GLOBAL 
SPROG roll. 


NAMELIST WRITE 


For the form WRITE (a, x), the NAMELIST 
WRITE, the following changes are made to 
the Polish notation given above: 


1. The FORMAT driver is 
NAMELIST driver. 


replaced by a 

2. The pointer to the FORMAT is replaced 
by a pointer to the NAMELIST. 

3-6 The code word value is changed. 

4. The IBCOM# entry is replaced by the 
value zero, since NAMELIST input/ 


output is not handled through IBCOM. 


5. The pointer to IBCOM# is replaced by a 
pointer to the NAMELIST WRITE routine. 


6. No I/O list may appear. 


UNFORMATTED WRITE 


For the form WRITE (a) list, the unfor- 
matted WRITE, the following changes are 
made to the Polish notation given above: 


1. The FORMAT driver is removed. 
2. The pointer to the FORMAT is removed. 
3. The IBCOM# entry, formatted WRITE, is 


replaced by the IBCOM# entry, unfor- 
matted WRITE. 


PRINT 
The Polish notation generated for the 
form PRINT b, list is identical to that 


given for the formatted WRITE statement, 
with the following changes: 


1. No END= or ERR= drivers may appear, 
nor may the corresponding pointers to 
labels. 


2- The code word value is changed. 
PUNCH 


The Polish notation for the statement 
PUNCH b, list is as given for the formatted 
WRITE with the following changes: 


1. No END= or ERR= drivers may appear, 
nor may the corresponding pointers to 
labels. 


2. The code word value is changed. 


DIRECT ACCESS STATEMENTS 


discuss'7 the 
direct 


The following paragraphs 
Polish notation produced for the 
access input/output statements. 


READ, DIRECT ACCESS 


For the forms READ (a‘'b,b) list and READ 
(a'r) list, the following Polish notation 
is generated: 


4 bytes 

a ge i Toa ee 1 
|pointer to a | 
}-------- ~--------------------- { 
|direct IO driver | 
}------------------------------ { 

| | 
}------------------------------ a 
| ° lf Polish for 
| : [) x 

| ° | 
}------------------------------ { 

| | 
}------------------------------ { 
jexpression driver | 
}------------------------------ { 
Jpointer to b 

ee a a ee 4 
|ERR= driver | 

Gea Ah ee eee 4 
|pointer to ERR label | 

a la a a ate aed eh re 4 

|IOL driver | 
}------------------------------ { 

| 
}------------------------------ 
| ° { Polish for 
| . |) I70O list 
: { 
}------------------------------ { 

| | 
}--------------------------- ---4 
]}code word | 

eases ais Sees ee tee | 
|IBCOM entry, READ l 
}------------------------------ { 
Jpointer to IBCOM# { 

en ee eee ee ~~ +--+ --—----{ 
{READ WRITE driver | 

Sethe oe deals as ete a ee es 4 
jstatement number | 

a a ee J 
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The END= and ERR= drivers and the point- 
ers following them appear only if the END 
and ERR options are used in the source 
Statement; either one or both may appear, 
and in any order with respect to each 
other. If b does not appear in the. source 


Statement (the second form), the corres- 
ponding pointer does not appear in the 
Polish notation. If the I/O list does not 


appear in the source statement, the Polish 
notation for the I/O list is omitted from 


the Polish, but the I0L driver appears 
nonetheless. 

The code word contains zero in its 
high-order three bytes, and, in its low- 
order byte, a unique code specifying the 
operation and unit for the input/output 
statement. This code word distinguishes 
the direct access statements from other 
input/output statements and is inserted in 


the code produced for them. 


WRITE, DIRECT ACCESS 


The Polish notation produced for the 
forms WRITE (a'tr,b) list and WRITE (a'r) 
list is identical to that produced for’ the 
corresponding forms of the READ, direct 
access statement with the Following 
exceptions: 


1. The IBCOM entry, 
the appropriate IBCOM entry, 


READ is replaced by 
WRITE. 


2. The value of the code word is changed. 


FIND 


The Polish notation produced for this 
Statement is identical to that for an 
unformatted direct access READ statement 
given above, with the exception that the 
code word is changed to indicate the FIND 
statement. 


DEFINE FILE 


The form of this statement is: 


DEFINE FILE ai (m1, 11, f1,v1),a2 
(m2,12,f£2,v2),...,an(mn, in, fn, vn) 


The Polish notation produced for it is: 
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4 bytes 
ena ae nae, Sern een ee 1 
Jpointer to al . | 
}------------------------- -----4 
Jpointer to m1 | 
LS area en eae ee 
Jpointer to 11 |)file 1 data 
}------------------------------ { 
jE, Lor U | 
oh ae oe ee eee a erated | 
{pointer to vi | 
}------------------------------ { 
{pointer to a2 | 
}~----------------------------- { 
| . - 
‘ \)} file 2 data 
| : | 
}------------------------------ { 
{pointer to v2 | 
}------------------------------ { 

: | 

| . | 

| : | 

}------------------------------ | 

Jpointer to an { 

[------~----------------------- { 

| ; = 

| ‘ \' file n data 

: | 

}------------------------------ { 

}pointer to vn | 
a fa Po aaa eee 4 

|]DEFINE FILE driver | 
ge ee Ne er ee PP ee 4 

|statement number | 

Ee a a a oe 4 


where the fourth word of each set of file 
data holds the BCD character E, L, or U in 
the high-order byte and zeros in the 
remaining bytes. 


END FILE STATEMENT 


The Polish notation produced for END 

FILE is: 
4 bytes 

Geen ge Ge ate pee tie Sy ee oe, ee ee ea 1 
Jpointer to a (data set) | 
a Nese ce a ee ee | 
]IBCOM entry for END FILE | 
ai seas Se ee cates eee era See ee | 
Jpointer to IBCOM | 
——— + ~—--------------{ 
| BSREF driver | 
|----------------------------------------- { 
i}statement number | 
Ree ee Oa Ne CR AER RES aD TN Ee MERE Sg ne ETE ont a J 


REWIND STATEMENT 


The Polish notation produced for the 
REWIND statement is identical to that for 
the END FILE statement with the exception 
that the IBCOM entry for END FILE is 
replaced by the IBCOM entry for REWIND. 


BACKSPACE STATEMENT 


The Polish notation produced for the 
BACKSPACE statement is identical to that 
for the END FILE statement, except that the 
IBCOM entry for END FILE is replaced by the 
IBCOM entry for BACKSPACE. 


STATEMENT FUNCTION 


cereee nara GAO “ee “ND Tere SEE Emme wentate She Eee Teen RE “ee ee 


The Polish notation generated for a 
statement function is: 


4 bytes 
a a aa aaa 1 
Jpointer to function name | 
}------------------------------ | 
| | 
}------------------------------ | 
| . |{ Polish for 
| ‘ |) right side 
| . | 
|------------------------------ { 
| 
}------- ~--=------------------- { 
{|statement function driver | 
Seas eee ee | 
jstatement number 
a eh es ee J 


FUNCTION STATEMENT 


The Polish notation 
FUNCTION statement is: 


produced for the 


4 bytes 
eek 
ico. UC 
[statenent nonber re 
wa Sa a Sa a a a i te ain ete dei et Jj 


where the pointer points to the ENTRY NAMES 
roll. 


FUNCTION (STATEMENT OR_SUBPROGRAM) 
REFERENCE 


The Polish notation generated for a 
reference to a function is: 


Sea ah re | 
jpointer to function name | 
See a es ~-—4J 
Jnumber of arguments | 
}------------------------------ { 
Jexpression driver | 
}------------------------------ { 
| | 
}------------------------------ i 
| . lf Polish for 
| ‘ |; argument 1 
| : | 
}------------------------------ { 
jexpression driver | 
|~-~---~----------------------- { 
| | 
}------------------------------ { 
| ;: lf Polish for 
{ . ‘argument 2 
| ° | 
}------------------------------ { 
jJexpression driver | 
}--------~------~-------------- { 
| ‘ | 
| ; | 
| : | 
}--------~--------------------- 4 
| | 
|------------------------------ | 
| . |/ Polish for 
| . |}argument n 
| : 
}------ ~----------------------- { 
jexpression driver | 
}~----------------------------- { 
Jpointer to function name | 
RS rein cte nee Parr Merete rer ee 7 Poe nape Ane] HINO J 

This Polish notation is part of the 


Polish notation for the expression in which 
the function reference occurs. 


SUBROUTINE STATEMENT 


The Polish notation generated for the 


SUBROUTINE statement is: 


where the pointer points to the ENTRY NAMES 
roll. 
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CALL STATEMENT 


The Polish notation for the CALL 
ment is: 


state- 


Polish for 
argument 1 


4 bytes 

fa at ee ee Pe od 
[subprogram driver | 
Pn Pe pee eet nee PngeN es ew perce enn cee ee eee 4 
jpointer to subprogram name | 
ee a a ee | 
Jnumber of arguments | 
}------------------------------ { 
Jexpression driver | 
|------------------------------ { 
| | 
}------------------------------ { 
| 

| 


| 

| 
}------------------------------ { 
| | 
}-----------------—----------- { 
| ° |{ Polish for 


argument 2 


| 
ee ae ee ag hE ee | 
Jexpression driver | 
|------------------------------ { 
| : | 
| : | 
| : | 
}------------------------------ { 
| | 
}------------------------------]] 
[ ° |( Polish for 
| e |) argument n 
| : | 
Le ae ees | 
Jexpression driver | 
a a ee a eS 4 
Jpointer to subprogram name | 
a a a | 
|pointer to xi | 
-—— ~~ - 4 
Jpointer to x2 | 
|-~---------------------------- { 
| ° |) label 
| e {| arguments 
| : | 
|------------------------------ { 
|pointer to xn | 
ace or te a i ee 4 
Jnumber of label arguments | 
Sane a ee en aa mE ee er Se he oro Re | 
| computed GO TO driver | 
esc ate cane asa ieee eae dea ae 4 
|CALL driver | 
|~----------------------------- { 
Istatement number | 
Bi a J 


Label arguments are not counted in the 
"number of arguments" which appears as’' the 
third word of the Polish notation, and no 
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representation of them appears in the 
Polish notation for the arguments. All 
label arguments are grouped together at the 
bottom of the Polish as indicated. If no 
label arguments exist, the section from the 
"pointer to xi" to and including the "con- 
puted GO TO driver" does not appear. 


DEBUG FACILITY STATEMENTS 


The following paragraphs describe the 
Polish notation produced for the statements 
of the debug facility. 


AT 


The Polish notation generated for the AT 
statement is: 


4 bytes 
(rears re ae On ere OR pa, ee ag ee ee 1 
| pointer to AT group | 
|-------~--------------------------------- { 
| AT driver | 
|----------~------------------------------ { 
| statement number | 
Oa eat ee 4 


The pointer points to the AT roll group 
which contains the information relating to 
the AT statement represented by the Polish 
notation. 


TRACE ON 


The Polish notation 
TRACE ON statement is: 


generated for the 


4 bytes 
Se ne ee A a Pe ey see Eee RPE On Wen een oie ee ee Aare 1 
| TRACE ON driver | 
a a a ce a i ee | 
| statement number | 
bee ie ee ee oe J 


TRACE OFF 


The Polish notation 
TRACE OFF statement is: 


generated for the 


4 bytes 
Sa a re eS - 
| TRACE OFF driver | 
a a eh hs ee | 
| statement number | 
Maa a tena pe ee ee oe J 


DISPLAY 


The Polish notation generated for the 
DISPLAY statement is: 


4 bytes 
aa ee ee ee ee 1 
| pointer to NAMELIST WRITE | 
|----------------------------------------- { 
| 0 | 
|----------------------------------------- { 
| NAMELIST pointer | 
|----------------------------------------- { 
| DISPLAY driver | 
|----------------------------------------- { 
| Statement number | 
Sele ae eee pe naa Por mE ee OR nl aS en eee 2 Tee eee en Sanne J 


where the pointer to NAMELIST WRITE points 
to this routine on the GLOBAL SPROG roll; 
the value zero is placed on the roll for 
conformity with other NAMELIST input/output 
statements; the NAMELIST pointer points to 
a group constructed for the DISPLAY state- 
ment on the NAMELIST NAMES roll. 
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APPENDIX D: OBJECT CODE PRODUCED BY THE COMPILER 


This appendix describes the code _ pro- 
duced by the FORTRAN IV (G) compiler for 
various types of source module statements. 


BRANCHES 


All branch instructions in the object 
module consist of a load from the branch 
table, followed by a BCR instruction, eith- 
er conditional or unconditional, which uses 
the branch table value as its target. 


The production of this code depends on 
the operation of Allocate, which replaces 
all jump target labels on the LBL roll with 
pointers to entries in the object module 
branch table. Using this information, Gen 
can write the load and branch instructions 
even though the address of the target may 
not yet be known. 


When Gen encounters a labeled statement 
which is a jump target, it sets the appro- 
priate entry in the branch table to the 


address of the first instruction it pro- 


duces for that statement. 


COMPUTED GO TO STATEMENT 


The following code is generated for the 
Computed Go To statement: 


L 15, variable 
SLL 15;.2 

BALR 14,0 

LTR 15,15 

BNH 4n+22(0,14) 
LA 1,4n(0,0) 
CR 15,1 

BH Gn+22(0,14) 
L 1,18(15,14) 
BR 1 


e 
n address constants 
e 


where variable is the Computed Go To vari- 
able, n is the number of branch points, and 
4n is the length of the list of n address 
constants. 


The use of a DO loop in a FORTRAN 
program can be described by the following 
example: 


DO 5 I = m1i,m2,m3 


5 CONTINUE 


When the DO statement is processed dur- 
ing phase 4, the following takes place: 


1. The code 


L RO,ml 
A ST RO,I 


is generated, where the label A is 


constructed by Gen. 


2e The address of the instruction labeled 
A is placed in the branch table. 


3. An entry is made on the DO LOOPS OPEN 
roll which contains pointers to m2, 
m3, the label A, I, and the label 5. 


On receiving the Polish notation for the 
CONTINUE statement in the example, phase 4 
produces the following code: 


L RO,I 

L Ri, branch table 
L R2,m3 

L R3,m2 

RO, R2,0(R1) 


where the load from the branch table sets 
R1 to the address of the made label A. 
When this code has been completed, phase 4 
removes the bottom entry from the DO LOOPS 
OPEN roll. 
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STATEMENT FUNCTIONS 


The following code is generated at the 
beginning of each statement function: 

STM 14,6,14(0,15) 

LR 7,14 

LR 9,1 

LR 6515 

B 42(0,15) 


seven word buffer 


The buffer is followed by the code for 
the statement function itself, including 
the code to load the return value. The 
following code closes the statement 
function: 

LR 14,7 

LM 6,12,14(6) 

BR 14 
SUBROUTINE AND FUNCTION SUBPROGRAMS 

The following code is generated to save 


required information at the main entry to 
each SUBROUTINE and FUNCTION subprogram: 


B X(0,15) 

DC ALI (length of Ident) 
DC CLn (Ident) 

STM 14,12,12(13) 

LM 2, 3, 40(15) 

LR 4,13 

L 13, 36(0, 15) 

ST 13,8(0,4) 

STM 3, 4,0(13) 

BR 2 

DC (ADDRESS SAVE AREA) 
DC (ADDRESS PROLOGUE) 
DC (ADDRESS EPILOGUE) 


This code is followed by the following 
code for saving required information for 
each of the ENTRYs to the subprogram (the 
sequence of code appears once for each 


ENTRY, in the order of the ENTRYs): 
B X(0,15) 
DC AL1 (length of ident) 
DC CLn (Ident) 
STM 14,12,12(13) 
LM 2,3, 32(15) 
L 15, 28(0,15) 
B 20(0,15) 
DC (ADDRESS PROLOGUE) 
DC (ADDRESS EPILOGUE) 
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The save code for the ENTRYs to the 
subprogram is followed by a PROLOGUE, which 
transfers arguments to the subprogram, and 
an EPILOGUE, which returns arguments to the 
calling routine for the main entry to the 
subprogram and for each ENTRY to the 
subprogram. 


The following code is produced for the 
RETURN statement: 


SR 15,15 
L 14,0(0,13) 
BR 14 


which branches to the appropriate EPILOGUE. 


The following 
RETURN I statement: 


code is produced’* for the 


L 15,1 

SLL 15,2 

L 14,0(0,13) 

BR 14 
which also branches to the appropriate 
EPILOGUE. 

The PROLOGUE code generated for each 


entry point to the subprogram moves argu- 
ments as required and branches to the 
entry. The following code is generated to 
move each call by name argument: 


L 2,n(0,1) 
ST 2,global dmy 
where n is the argument number (the argu- 


ments for each entry point are numbered 


from one) multiplied by four. 


The following code is generated to move 
each call by value argument: 

L 2,n(0,1) 

MVC global dmy (x),0(2) 


where n is the argument number multiplied 
by four, and x is the size of the dummy. 


Code to calculate dummy dimensions fol- 
lows the code to move arguments. 


The following code is generated at the 
close of all PROLOGUEs: 


BALR 2,0 

L 3,6(0, 2) 

BR 3 

DC (ADDRESS OF CODE ENTRY POINT) 


The EPILOGUE code generated for each 
entry point to a subprogram moves arguments 
back to the calling routine and returns to 
it, as dictated by the RETURN or RETURN I 
Statement. 


Form Y28-6638-1 
Page Revised 11/15/68 by TNL Y28-6826 


The first instructions in each EPILOGUE 


are: 


1,40, 13) 
1,24(0,1) 


ee Oy 


The following code is generated to 
return each call by value argument: 


L 2,n(0,1) 
MVC O(x,2),global dmy 


where n is the argument number multiplied 
by four and x is the size of the dummy. 


For FUNCTION subprograms, the 
instruction is generated: 


following 


Lx O,entry name 


where x is the instruction mode. If the 
FUNCTION is complex, two load instructions 
are required. 


The following code is generated for the 
closing of each EPILOGUE: 


L -13,400,13) 
L 14,12(0,13) 
LM 2,12, 28(13) 
MVI 12(13),255 
BR 14 


INPUT/OUTPUT OPERATIONS 


The following paragraphs describe the 
code produced for the FORTRAN input/output 
Statements. The generated instructions set 
up necessary parameters and branch into the 
IBCOM# transfer table. This table has’ the 
following format: 

_ I BCOM# Main entry, formatted READ 

| +4 Main entry, formatted WRITE 
+8 Second list item, formatted 
+12 Second list array, formatted 
+16 Final entry, end of I/O list 
+20 Main entry, unformatted READ 
+24 Main entry, unformatted WRITE 
+28 Second list item, unformatted 
+32 Second list array, unformatted 

+36 Final entry, end of I/O list 

+40 Backspace tape 

+44 Rewind tape 

+48 Write tapemark 

+52 STOP 

+56 PAUSE 

+60 IBERR execution error monitor 

+64 IBFINT interruption processor 

+68 IBEXIT job termination 


FORMATTED READ AND WRITE STATEMENTS 


The code produced for these statements 
is: 
CNOP 0,4 
L 15, =V(IBCOM#) 
BAL 14,N(15) 
DC XLO.4°PI',XLO.4'UI',AL3 (UNIT) 
DC ALI (FI), AL3 (FORMAT) 
DC AL4 (EOFADD) "optional" 
DC AL4 (ERRADD) "optional" 
where: 
PI = 0 if neither EOF nor _ ERR is 
specified 
= 1 if EOF only is specified 
= 2 if ERR only is specified 
= 3 if both EOF and ERR are 
specified 
UI = 0 if unit is an integer constant 
= 1 if unit is a variable name 
= 4 if unit is the standard system 
unit 
rI = X'OO' if FORMAT is a statement 
label 
= X'01' if FORMAT is an array name 
N = 0 for READ 
= 4 for WRITE 
UI = 4 is used for debug and for READ b, 
list, PRINT b, list and PUNCH b, list. 
SECOND LIST ITEM, FORMATTED 
The code produced is: 
L 15, =V(IBCOM#) 
BAL 14,8(15) 
DC XL1i'L', LXO.4'T'. XLO.4*X! 


XLO.4*B',XL1.4'D' 
where: 


L = the size in bytes of the item 


T = 2 for a logical 1-byte item 

= 3 for a logical fullword item 

= 4 for a halfword integer item 

= 5 for a fullword integer item 

= 6 for a double-precision real item 

= 7 for a single-precision real item 

= 8 for a double-precision complex 
item | 

= 9 for a single-precision complex 
item 


A for a literal item (not currently 
compiler-generated) 
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X, B, and D are, respectively, the 
index, base, and displacement which 
specify the item address. 
SECOND LIST ARRAY, FORMATTED 
The code produced is: 
L 15, =V(IBCOM#) 
BAL 14,12(15) 
DC LX1* SPAN‘ , AL3 (ADDRESS) 
DC XL1°L',XLO.4'T!,XL2.4" ELEMENTS‘ 
where: 


SPAN (not used) 


ADDRESS = the beginning location of the 


array 

L = the Size in bytes of the array 
element 

T = the values given for items 


ELEMENTS = the number of elements in the 
array 


FINAL LIST ENTRY, FORMATTED 
The code produced is: 


i 15, =V(IBCOM#) 
BAL 14,1615) 


UNFORMATTED READ AND WRITE STATEMENTS 


The code produced for these statements 
is: 

CNOP 0,4 

L 15,=VCIBCOM#) 

BAL 14,N(15) 

DC XLO.4*PI',XLO. 4*UI, AL3 (UNIT) 

DC AL4 CEOFADD) "optional" 

DC  AL4(CERRADD) "optional" 
where: 


FOFADD and ERRADD have the 
for- 


PL, UI, UNIT, 
Same values as those given in the 
matted READ/WRITE definition. 

N 20 for READ 
24 for WRITE 
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SECOND LIST ITEM, UNFORMATTED 


The code produced is: 


L 15, =V (IBCOM#) 
BAL T4,28(15) | 
pc -—-=-—”—CFEXL”LAL Gt, XLO. 4" 0", XLO.4*x', 


XLO.4°B',XL1.4"D!* 
where: : 
L = the size in bytes of the item 
X, B and D are, respectively, the 


index, base, and displacement which 
specify the address of the item. 


SECOND LIST ARRAY, UNFORMATTED 


The code produced is: 


L 15, =V(IBCOM#) 

BAL 14,32(L) | 

DC XL1' SPAN! , AL3 (ADDRESS) 
DC XL1'L', AL3 (ELEMENTS) 


where SPAN, ADDRESS, L, and ELEMENTS have 
the meanings described in second list 
array, formatted. 


FINAL LIST ENTRY, UNFORMATTED 
The code produced is: 


L 15, =VCIBCOM#) 
BAL 14, 36(15) 


BACKSPACE, REWIND, AND WRITE TAPEMARK 


The code produced is: 


CNOP 0,4 
L 15, =V(IBCOM#) 
BAL 14,N(15) 
DC XL1*FLAG!, AL3(UNIT) 
where: 
FLAG = 0 if unit is an integer 
= any other bit pattern if unit is 
a variable. 
N 4Q for BACKSPACE 


U4 for REWIND 
48 for write tapemark 


en 


STOP AND PAUSE STATEMENTS 


The code produced for these statements 
is: 


L 15, =V(IBCOM#) 

BAL 14,N(15) 

Dc AL1 (LENGTH) 

DC C'TEXT* 
where: 


LENGTH is the number of bytes in the 


"TEXT' message 


TEXT is an alphameric number or message 
(TEXT = ‘*S80404040F0" if the STOP or 
PAUSE message is blank). 
N = 52 for STOP 
= 56 for PAUSE 
NAMELIST READ AND WRITE 
The code produced is:* 
CNOP 0,4 
L 15 ,=V (FWRNL# ) 
BAL 14,0 (15) 
DC XLO.4*PI',XLO.4"UI', AL3 (UNIT) 
DC AL4 (NAMELIST) 
DC AL4 (EOFADD) 
DC AL4 (ERRADD) 
where: 


PI, UI, and UNIT are as described for 
formatted READ and WRITE 


* The "L 15,=V(FWRNL#)" shown is for 
write; the code produced for read is 
"L 15,+V(FRDNL#) ." 


DEFINE FILE STATEMENT 


The form of the parameters specified in 
the statement is: 


aq (m4, £4, Y4,V3) geee © An (Mn, fne ns Vn) 


The following code is generated in the 
object module prologue: 


LA R,, LIST 
L L, =V(DIOCS#) 
BALR Rei 
where: 
Ry = 1 
L = 15 
Ra = 14 


The following parameter list is also 
generated: 
pc X'a,', AL3 (m,) 
DC G'f, | AL3 (,) 
DC X'00" ,AL3 (v,) 
DC X*ay', AL3 (my) 
DC C*fy', AL3 (ry) 
DC X" 80° , AL3 (vy) 


The third DC in the group is changed to 
DC X*01',AL3 (vi) 
if the associated variable is a halfword 


variable. In the last group, it becomes 
X*81°,AL3(vn) in this case. 


FIND STATEMENT 


The code produced is: 


CNOP 0,4 
L 15, =V(IBCOM#) 
BAL 14,20(15) 
DC XLO.4°PI*,XLO.4'UL' , AL3 (UNIT) 
DC XL1'VI* ,AL3 (r) 
PI =C 
UI 0 if the unit is a constant 


1 if the unit is a variable name 


VI = 00 if the record number iS a 
constant 

= 01 if the record number is ae vari- 
able name 

Note that 20 is the IBCOM entry point 


for an unformatted READ. 


DIRECT ACCESS READ AND WRITE STATEMENTS 


The code produced for these statements 
is: 

CNOP 0.4 

L 15,=V(IBCOM#) 

BAL 14,N(15) 

DC XLO.4*PI',XLO.4*UI‘'AL3 (UNIT) 

DC AL1 (FI) , AL3 (FORMAT) 

DC AL1 (VI) ,AL3 (r) 

DC AL4 (ERRADD) "may only appear for 

READ" 3 
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where: 


PI = 8 if ERR is not specified 
= A if ERR is_ specified, which is 
.Oonly possible for READ 
UI = 0 if the unit is an integer 
constant 
= 1i1f the unit is a variable name 
FI = 00 if the FORMAT is a statement 


label 
= 01 if the FORMAT is an array name 


VI = 00 if r (the record number) is a 
constant 
= 01 if r is a variable name 


The entry points which may appear (N) 
are 0, 4, 20, or 24 If 20 or 24 appears 
(indicating an unformatted operation), the 
second DC does not appear. 


FORMAT STATEMENTS 


FORMAT statements are stored after lit- 


eral constants in the object module. 


The FORMAT specifications are recoded 
from their source module form so that each 
unit of information in the FORMAT statement 
occupies one byte of storage. Each integer 
which appears in the FORMAT statement 
(i1.e., a scale factor, field width, number 
of fractional digits, repetition count) is 
converted to a i-byte binary value. Decim- 
al points used to separate field width from 
the number of fractional digits in the 
source module FORMAT statement are dropped; 
all other characters appearing in the 
source module statement are represented by 
1i-byte hexadecimal codes. The following 
sections describe the encoding scheme which 
is used. 


FORMAT Beginning and Ending Parentheses 


The beginning and ending parentheses of 
the FORMAT statement are represented by the 
hexadecimal codes 02 and 22, respectively. 


Slashes 


The slashes 
statement are 
imal code 1E. 


appearing in the FORMAT 
represented by the hexadec- 
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Internal Parentheses 


Parentheses used to 
FORMAT specifications within the FORMAT 
statement are represented by the codes 04 
and 1c for the left and right parenthesis, 
respectively. The code for the left paren- 
thesis is always followed by the i-byte 
value of the repetition count which pre- 
ceded the parenthesis in the source module 
statement. A value of one is inserted if 
no repetition count appeared. 


enclose groups of 


Repetition of Individual FORMAT 
Specifications 


Whenever the source module FORMAT state- 
ment contains a field specification of the 
form alIw, aFw.d, akEw.d, aDw.d, or aAw, 
where the repetition count "a" is present, 
the hexadecimal code 06 is produced to 
indicate the field repetition. This code 
is followed by the i-byte value of "a". 


I,F,E, and D FORMAT Codes 


The I and F FORMAT codes are represented 
by the hexadecimal values 10 and OA, re- 
spectively. The I code is followed by the 
1-byte field width value; the F code is 
followed by two bytes, the first containing 
the field width (w) and the second contain- 
ing the number of fractional digits (d). 


E and D FORMAT codes are represented by 
the hexadecimal values OC and OE, respec- 
tively. This value is always followed by 
two bytes which represent the field width 
and the number of fractional digits, 
respectively. 


A FORMAT Code 


The A FORMAT code is represented by the 
hexadecimal value 14. This 
is always followed by the i1-byte value of 
w, the number of characters of data. 


Literal Data 


The H FORMAT code and the quotation 
marks used to enclose literal data are both 
represented by the hexadecimal value 1A. 
This code is followed by the character 
count (w in the case of the H specifica- 


representation. 


tion, the number of characters enclosed in 
quotation marks in the case of the use of 
quotation marks). The literal data follows 
the character count. 


X FORMAT Code 


Ee Se EN CRANES TY NEY TORS TUT 


The specification wxX results in the 
production of the hexadecimal code 18 for 
the X; this is followed by the 1-byte value 
of w. 


T_FORMAT Code 


The T FORMAT code is represented by the 
value 12. The print position, w, is repre- 
sented by a 1-byte binary value. 


Scale Factor-P 


The P scale factor in the source module 
FORMAT statement iS represented by the 
hexadecimal value 08. This code is fol- 
lowed by the value of the scale factor, if 
it was positive. If the scale factor was 
negative, 128, is added to it before it is 
stored following the P representation. 


G FORMAT Code 


The G FORMAT Code is represented by the 
hexadecimal value 20. This value is always 
followed by two bytes which represent the 
field width and the number of significant 
digits, respectively. 


IL FORMAT Code 


The L FORMAT code is represented by the 
hexadecimal value 16. This value is fol- 
lowed by the 1-byte field width. 


Z FORMAT Code 


The Z FORMAT code is represented by the 
hexadecimal value 24. This value is fol- 
lowed by the 1-byte field width. 


DEBUG FACILITY 


The following paragraphs describe the 
code produced for the FORTRAN Debug Facili- 
ty statements. The generated instructions 
set up parameters and branch into the 
DEBUG# transfer table. The object-time 
routines which support the Debug Facility 
are described in Appendix E. 


DEBUG STATEMENT 


When the source module includes a DEBUG 
statement, debug calls are generated before 
and after each sequence of calls to IBCOM 


for source module input/output statements. 
Additional debug calls are generated to 
satisfy the options listed in the DEBUG 


statement. 


Beginning Of Input/Output 


appears before the 
output 


The following code 
first call to IBCOM for an input or 
operation: 


L 15, =V (DEBUG#) 
CNOP 0,4 
BAL 14,44(0,15) 


End of Input/Output 


The following code appears after the 
last call to IBCOM for an input or output 
operation: 


L 15,=V(DEBUG#) 
CNOP 0,4 
BAL 14,48(0,15) 


UNIT Option 


When the DEBUG statement does not 
include the UNIT option, the object-time 
debug routine automatically writes debug 
output on SYSOUT. When UNIT is specified, 
the following code is generated at the 
beginning of the object module: 


L 15,=V (DEBUG#) 
CNOP 0,4 

BAL 14,12(0,15) 
pc F'DSRN! 
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where DSRN is the data set reference number 
to be used for all subsequent debug output. 


TRACE Option 


When the TRACE option is specified in 
the source module DEBUG statement, the 
TRACE call is inserted immediately before 


the code for every labeled statement. The 
code is: 

L 15,=V (DEBUG#) 

CNOP 0,4 

BAL 14,0(0,15) 

DC F* LABEL' 


where LABEL is the label of the 
Statement. 


following 


SUBTRACE Option 


When the SUBTRACE option is listed in 
the source DEBUG statement, two sequences 
Of code are produced: one at the entry to 


the object module, each 


RETURN. 


and one prior to 


SUBTRACE ENTRY: The debug call is made at 
the beginning of the object module. The 


call is: 

i 15, =V(DEBUG#) 

CNOP 0,4 

BAL 14,4(0,15) 

At the time of the call, register 13 


contains the address of the SAVE AREA, the 
fifth word of which contains the address of 
the subprogram identification. Bytes 6 
through 11 of the subprogram identification 
are the subprogram name. 


SUBTRACE RETURN: 


Re TE REE NNN RS ARAYA! ONE 


immediately before the 
The call is: 


The debug call is made 
RETURN statement. 





L 15,=V (DEBUG#) 
CNOP 0,4 
BAL 14,8(0,15) 


INIT Option 


When the INIT option is given in the 
source module DEBUG statement, a debug call 
is produced for every assignment to a 
variable, or to a listed variable if a list 
is provided. The call immediately follows 
each assignment, including those which 
occur as a result of a READ statement or a 
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INIT ARRAY ITEM: The 


subprogram call. Three calls may occur, 
depending on the type of variable (scalar 
Or array) and the method of assignment. 


INIT SCALAR VARIABLE: The following code 
is produced after each assignment of value 


to a scalar variable covered by the INIT 
option: 
L 15,=V(DEBUG#) 
CNOP 0,4 
BAL 14,16(0,15) 
Dc CL6"NAME',CL2' : 
DC XL1i'L' ,XLO.4*T', xXLO.4* X* | XLO.4'B!, 
XL1. 4*pD* 
where: 
NAME is the name of the variable which 


was set. 


L is the of the variable in 


bytes. 


length 


T is the type code for the variable: 


= 2 for a logical i-byte item 

= 3 for a logical fullword item 

= 4 for a halfword integer item 

= 5 for a fullword integer item 

= 6 for a double-precision real item 

= 7 for a single-precision real item 

= 8 for a double-precision complex 
item 

= 9 for a esingle-precision complex 
item 


= A for a literal item (not currently 
compiler generated) 


X, B, and D are, respectively, the 
index, base, and displacement which loc- 
ate the item. 


following code is 
produced after each assignment of value to 
an array element: 


L 15,-V(DEBUG#) 

CNOP 0,4 

BAL 14, 20(0,15) 

DC CL6* NAME' ,CL2‘ ' 

DC XL1'L", XLO.4°T', XLO.4°X' ,XLO.4'°B', 
XL1.4"pD* 

DC XL1‘' TAG‘ , AL3 (ADDRESS) 

where: 


ADDRESS IS THE LOCATION OF THE FIRST 
array element if TAG = 0, or ADDRESS is a 
pointer to the location of the first 
array element if TAG # 0. 


NAME, L, T, X, By, and D are as described 
for a scalar variable. 


INIT FULL ARRAY: The following code is 
produced when a full array is set by means 
of an input statement specifying the array 


ee 


name or when the array name appears as an 
argument to a subprogram: 


ve 15,=V (DEBUG#) 
CNOP 0,4 
BAL 14,24(0,15) 


DC CL6* NAME', CL2* : 

DC A(CADDRESS) 

DC XLI'L', XLO.4'T', XL2.4'00000' 
DC A(CELEMENTS) 

where: 


ADDRESS is the location of the first 


array element. 


ELEMENTS is a pointer to a word contain- 
ing the number of elements in the arrey. 


NAME, LL, and T are as described for a 
scalar variable. 


SUBCHK Option 


call is 
array 
without a 


A debug 
reference to an 
SUBCHK option appears 


produced for each 
element when the 
list of 


array names; when the list is given, only 
references to the listed arrays produce 
debug calls. The debug call appears before 
the reference to the array, and is: 
L 15, =V(DEBUG#) 
CNOP 0,4 
BAL 14,28(0,15) | 
DC CL6"NAME',CL2' § 
DC XL1I'TAG', AL3 (ADDRESS) 
DC AL4 (ELEMENTS) 
where: 
NAME is the array name. 
ADDRESS is the location of the first 


array element if TAG = 0, or ADDRESS is 
a pointer to the location of the first 
array element if TAG # 0. 


ELEMENTS is a pointer to a word contain-— 
ing the number of elements in the array. 


AT STATEMENT 


_ The AT statement specifies the label, L, 
of a statement whose operation should be 


immediately preceded by the operation of 
the statements following the AT. AS a 


result of the AT statement, an uncondi- 
tional branch to the location of the first 
Statement following the AT is’ inserted 


before the first instruction generated for 
the statement labeled L. This branch pre- 
cedes any TRACE or SUBTRACE calls which may 
be written for statement L. 


The branch, like all branches performed 
in the object module, consists of a load 
from the branch table, followed by a_= BCR 
instruction. The branch table entry 
referred to is one constructed for a_ label 
which the compiler provides for the state- 
ment following the AT. 


TRACE ON STATEMENT 


The debug call produced for the TRACE ON 
statement appears at the location of the 
TRACE ON statement itself; the call is: 


if 15,=V (DEBUG#) 
CNOP 0,4 
BAL 14,32(0,15) 


TRACE OFF STATEMENT 


The debug call produced for the TRACE 
OFF statement appears at the location of 
the TRACE OFF statement itself; the call 


is: 
L 15, =V (DEBUG#) 
CNOP 0,4 


BAL 14, 36(0,15) 


DISPLAY STATEMENT 


The code for the DISPLAY statement is: 


L 15,=V (DEBUG#) 
CNOP 0,4 

BAL 14, 40(0,15) 
DC A(NAMELIST) 
DC A (FWRNL#) 


where NAMELIST is the address of the NAME- 
LIST table generated from the DISPLAY list 
by the compiler. This code appears at’ the 
location of the DISPLAY statement itself. 
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The information provided in this appen- 
dix has its primary use in connection with 
a listing of the compiler. The label lists 
indicate the chart on which a_e specific 
label can be found, or, for routines which 
are not flowcharted, they provide a 
description of the routine. 


PARSE LABEL LIST 


The labels enumerated in the following 
list are used in the flowcharts provided 
for the illustration of the major routines 
used in Parse. 








Chart 
Label ID Routine Name 
G0630 O4 START COMPILER 
G0631 04 STATEMENT PROCESS 
G0837 BA PRINT AND READ SOURCE 
G0632 BB STA INIT 
G0635 BC LBL FIELD XLATE 
G0636 BD STA XLATE 
G0633 BE STA FINAL 
G0642 BF ACTIVE END STA XLATE 
GO844 BG PROCESS POLISH 


SUPPLEMENTARY PARSE LABEL LIST 


The routines described in this section 
are listed by G number labels which are 
presented in ascending order. These rou- 
tines are those used in the operation of 
Parse which are not shown in the section of 
flowcharts for the phase. 


Routine 
Label Name. Comments 
GO0287 REASSIGN Obtains additional core 
MEMORY storage, if possible, 
for a specific roll by 
pushing up the rolls 
that precede the _ re- 
questing roll in the 
block of storage. If 
this is not possible, 
it requests more core 
Storage and, if none is 
available, enters PRESS 
MEMORY. 
G0637 ASSIGNMENT Constructs the Polish 
STA XLATE notation for an assign- 
ment statement. 
G0638 ARITH FUN Constructs the Polish 
DEF STA notation for an arith- 
XLATE metic function defini- 


tion statement. 


APPENDIX E: 


Routine 
Name__ 


ASSIGNMENT 
VAR CHECK 


Label 
G0639 


GO640 LITERAL 


TEST 


G0641 END STA 


XLATE 


G0643 DO STA 


XLATE 


GO644 DO STA 
CONTROL 


XLATE 


G0645 DIMENSION 


STA XLATE 


GO0646 GOTO STA 


XLATE 


G0647 CGOTO STA 


G0O648 ASSIGNED 
GOTO STA 
XLATE 

GO649 ASSIGN STA 


XLATE 
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MISCELLANEOUS REFERENCE DATA 


Comments 
the mode of as- 
Signment variable and 


the expression for con- 


flict in type speci- 
fication. 

Determines the statement 
type and transfers to 


the indicated statement 
processing routine. 


Determines the nature of 
the statement and 
transfers to the appro- 
priate translation rou- 
tine for non-END; 
translates END. 


the Polish 
notation for the DO 
statement. Locates the 
innermost DO statement 
in a nest of DO's, and 
sets up extended range 
checking. 


Constructs 


Interprets the loop 
control specification 
in the DO statement and 
constructs the Polish 
notation for these 
controls. 


Determines the validity 
of the specifications 
in the DIMENSION state- 
ment and constructs 
roll entries. 

Determines the type of 

GO TO statement, and 

constructs the Polish 

notation for a GO TO 
statement. 


Constructs the Polish 
notation for a Computed 
GO TO statement. 


Constructs the Polish 
notation for an As- 
Signed GO TO statement. 


Controls the construc- 
tions of the Polish 
notation for an ASSIGN 
statement. 
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G0651 


G0652 


G0653 


G0654 


G0655 


G0656 


G0657 


G0658 


G0659 


G0660 


G0661 


G0662 


G0663 


126 


Routine 


Neeser Hoey See tet ES Sey 


LOGICAL IF 
STA XLATE 


IMPLICIT 
STA XLATE 


REGISTER 
RANGE 


REGISTER 
IMPLICIT 
CHAR 


SCAN FOR 
EYES. OF 
AND SIZE 


CONTINUE 
STA XLATE 


CALL STA 
XLATE 


EXTERNAL 


STA XLATE 


FORMAT STA 
XLATE 


FORMAT STA 
END 


FORMAT 
LIST SCAN 


FORMAT 
BASIC SCAN 


ISCAN TEST 


Comments 


Constructs the Polish 
notation for an IF 
statement. 

Constructs the Polish 
notation for a logical 
IF statement. 

Checks the IMPLICIT | 
statement and controls 
the construction of the 
roll entries for the 
Statement. 

Controls character en- 
tries for an IMPLICIT 
statement. 

Places the characters in 


the IMPLICIT statement 
on the IMPLICIT roll. 


Determines the mode and 
Size of the variables 
in specification state- 
MENTS «| 


Constructs the Polish 
notation for a continue 
statement. 


Constructs the Polish 
notation for a CALL 
Statement. 


Validates the use of the 
EXTERNAL statement and 
constructs roll en- 
tries. 


Validates the use of the 
FORMAT statement and 
controls the construc- 
tion of the Polish 
notation for the state- 
ment. 


Builds the FORMAT roll 
from the information 
obtained from the proc- 


essing of the state- 
ment. 
Checks the form of the 


literal content of the 
FORMAT statement. 


Interprets the FORMAT 
list and constructs the 
Polish notation for the 
list. 


Checks the size of the 
inteter constant or 
variable specified. 


Label 


G0664 


G0665 


G0666 


G0667 


G0668 


G0669 


G0670 


GO671 


G0672 


G0673 


GO674 


G0675 


G0676 


GO0677 


G0678 


Routine 
Name 


PACK H CODE 


PACK FORMAT 


QUOTE 


REWIND STA 
XLATE 


BACKSPACE 
STA XLATE 


END FILE 
STA XLATE 


END FILE 
END 


BLOCK DATA 
STA XLATE 


STOP STA 
XLATE 


STOP CODE 
ENTRY 


PAUSE STA 
XLATE 


PAUSE STOP 
COMMON 


PAUSE STOP 
END 


INIT 
LITERAL 
FOR STOP 
PAUSE 


NAMELIST 
STA XLATE 


COMMON STA 
XLATE 


Comments 

Interprets the specifica- 
tion for the H format 
code. 


Controls the registering 
of the contents of a 
literal quote specified 


in a FORMAT statement. 
Constructs the Polish 
notation for a REWIND 
statement. 
Constructs the Polish 
notation for a 


BACKSPACE statement. 


Constructs the Polish 
notation for an END 
FILE statement. 

Completes the Polish 
notation for input/ 
output control state- 
ments. 

Validates the use of the 


BLOCK DATA statement. 


Sets up the Polish nota- 
tion for the STOP 
statement. 

Sets up the Polish nota- 
tion for the STOP 
statement. 

Controls the interpreta-— 
tion of the PAUSE 
statement. 

Checks the form of the 


specified statement and 


controls the construc- 
tion of the Polish 
notation for the 
statement. 


Registers the constructed 
Polish notation on the 
POLISH roll. 


Controls the interpreta- 
tion of the message 
specified in the PAUSE 
statement. 


roll 
the 


Constructs the 
entries for 
NAMELIST statement. 


Constructs the roll 
entries for the COMMON 
specification. 


Label 
G0679 





G0680 


G0681 


G0682 


G0683 


G0684 


G0685 


G0686 


G0687 


G0688 


G0689 


G0690 


G0691 


Routine 
Name 
TEST ID 
ARRAY OR 
SCALAR 


DOUBLE PRE 
STA XLATE 


TYPE STA 
XLATE 


SCAN FOR 
SIZE 


TYPE 


SEARCH TEST 


AND REG 


ENTRY STA 
XLATE 


FUNCTION 
STA XLATE 
TYPED 
FUNCTION 
STA XLATE 
FUNCTION 
ENTRY STA 
XLATE 
XLATE 


SUBROUTINE 
STA XLATE 

SUBROUTINE 
ENTRY STA 

XLATE 


SUBPROGRAM 
END 


SPROG NAME 
SCAN AND 
REG 


Comments 

Validates the identifica- 
tion of the array or 
scalar used in COMMON. 





Checks the use of the 
DOUBLE PRECISION state- 
ment and controls the 
interpretation of the 
statement. 


Interprets and constructs 


the roll entries for 
the type specification 
statement. 

Checks the size specifi- 
cation for the vari- 
ables in type state- 
ments. 


Checks the identification 
of the variables in the 


type specification 
in statement for pre- 
vious definition and 


defines if correct. 


constructs the Polish 
notation and roll 
entries for an ENTRY 
statement. 

These routines control 


the construction of the 
Polish notation for a 


FUNCTION subprogram by 
invoking the routines 
which interpret the 


contents of the state- 
ment. 


These routines control 
the construction of the 
Polish notation for a 
SUBROUTINE subprogram 
by invoking the routine 
which interprets’ the 
contents of the state- 
ment. 


Common closing routine 
for ENTRY, FUNCTION, 
and SUBROUTINE state- 
ments. 


Checks the identification 
of the SUBROUTINE or 
FUNCTION subprogram for 
conflicts in defini- 
tion. 


Label 
G0692 





G0693 


G0694 


G0695 


G0696 


G0697 


G0698 


G0699 


GO0700 


GO701 


G0702 


GO704 


GO0705 
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Routine 
Name 


TEST ORDER 


DMY SEO 
SCAN 


GLOBAL DMY 
SCAN AND 
TEST 


DEFINE 
FILE STA 
XLATE 


DATA STA 
XLATE 


DATA CONST 
XLATE 


INIT DATA 
VAR GROUP 


DATA CONST 
ANALYSIS 


DATA VAR 
TEST AND 
SIZE 


MOVE TO 
TEMP 


POLISH ROLL 


READ STA 
XLATE 


READ WRITE 
STA XLATE 


END QT 
XLATE 


Comments 


Checks the order in which 
the SUBROUTINE or FUNC- 
TION statement appears 
in the source module. 


Checks the designation of 
the dummy variables for 
call by name or call by 
value. 


Checks the identification 
of the global dummy for 
a possible conflict in 
definition. 


Constructs the Polish 
notation for the DEFINE 
FILE statement. 


Constructs the Polish 
notation and roll 
entries for the DATA 
statement. 

Interprets the constants 
specified in the DATA 
Statement. 

Determines and sets up 
the number of elements 
specified in the DATA 
Statement. 

Validates the specifica- 
tion of the constants 
used in the DATA 
Statement. 


Checks the definition of 
the variables specified 
in the DATA statement 
for usage conflict, and 
registers the variables 


if no conflict is 
found. 
Moves information for 


DATA statement to TEMP 
POLISH roll from WORK 
roll. 


Checks the type of READ 
statement and controls 
the interpretation of 
the statement. 

Interprets the elements 
of the READ or WRITE 
statement and con- 
structs the Polish 
notation for the 
statement. 

Constructs the Polish 


notation for the END= 
quote. 
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Label 
G0706 





GO0707 


G0708 


G0709 


G0710 


G0711 


G0712 


G0713 


GO714 


G0715 


G0716 


GO717 


GO718 


G0719 


G0720 
GO721 
GO722 


188 


Routine 
Name 
ERR OT 
XLATE 


REGISTER 
IBCOM 


REGISTER 
ERROR LINK 


READ B STA 
XLATE 
PUNCH 
XLATE 
PRINT 
XLATE 


STA 


STA 


F2 IO 
XLATE 


IoL LIst 
XLATE 


FIND STA 
ALATE 


RETURN STA 
XLATE 


EQUIVALENCE 
STA XLATE 


DIMENSION 
SEQ 
XLATE 


TEMP MAKER 


SPECIFI- 
CATION 
STA EXIT 
JUMP END 
ACTIVE END 
HEAD STA 
EXIT 


Comments 

Constructs the Polish 
notation for the ERR= 
quote in the READ 
statement. 


Inserts a roll entry for 
a call to IBCOM. 


Sets the roll entry for 
the generation of error 
linkage. 


Initialize for the con- 
struction of the Polish 


notation for the in- 
dicated statement. 
Constructs the Polish 
notation for the in- 
dicated input/output 
statement and inter- 
prets FORMAT designa- 


tions associated with 
the input/output state- 
ment. 


Interprets and constructs 
the Polish notation for 
the list associated 
with the indicated 
input/output statement. 


Polish 
the FIND 


Constructs the 
notation for 
Statement. 


Constructs the Polish 
notation for the RETURN 
Statement. 


Constructs the roll en- 
tries for the EQUIVA- 
LENCE statement 


Constructs the roll en- 
tries for the dimen- 
Sions designated for an 
arraye 


Increments pointer for 
temporary locations 
used for dummy dimen- 
sions. 


Set flags and return. 


Label 
G0723 


GO724 


G0725 
G0726 


G0727 


G0728 
G0729 


G0730 


G0731 


G0732 


G0733 


G0734 


G0735 


G0736 


GO737 


G0738 


Routine 


Name Comments 

STA XLATE Replaces the Polish nota- 

EXIT tion for a statement 
with error linkage if 
indicated. 

ILLEGAL These routines set up 

STA FAIL diagnostic messages for 

ORDER FAIL the type of error indi- 

ALLOCATION cated by the routine 

FAIL name. 

ILLEGAL 

NUMBER 

FATL 

SUBSCRIPT 

FAIL 

ID CONFLICT 

FAIL 

TYPE 

CONFLICT 

FAIL 

VAR SCAN Checks definition of 
variables in the source 
module; defines as 
scalar if undefined. 

ARRAY SCAN Constructs the Polish 
notation and roll 
entries for array re- 
ferences. 


SUBSCRIPT Determines the nature of 

ANALYSIS an array reference for 
purposes of subscript 
optimization. 


SCRIPT ITEM Determines whether a 

ANALYSIS subscript expression is 
a linear function of a 
DO variable, and sets 
ANSWER BOX. 


NOTE LINEAR Registers a linear sub- 


SCRIPT script expression on 
SCRIPT roll. 

RESTORE Builds the Polish nota- 

NONLINEAR tion for a nonlinear 

SCRIPT subscript expression on 
Polish roll. 

MOVE ON Moves one group from WORK 

EXIT FALSE roll to POLISH roll, 
sets ANSWER BOX to 
false, and returns. 

SCRIPT Determines whether a 

SCALAR scalar used ina sub- 

ANALYSIS script is a DO variable 


and sets ANSWER BOX. 


Label 
GO739 


GO740 


GO741 


GO744 


GO745 


GO746 


GO747 


GO748 


GO749 


G0750 


GO751 


Routine 


Name 


SCRIPT 
CONST 
ANALYSIS 


DEFINE 
SCRIPT 
GROUP 


REGISTER 
SCRIPT 
GROUP 


TERM SCAN 


ELEMENT OP 
SEQ SCAN 


UNAPPENDED 
SPROG ARG 


FUNCTION 
ELEMENT 


CONST 
ELEMENT 


SCALAR 
ELEMENT 


ELEMENT 
MOVE 


OP SCAN 
CHECK 
DEPOSIT 


Comments 

Separates constant used 
in a subscript expres- 
Sion as either induc- 
tion variable coeffi- 
cient or additive 
constant. 

Creates new group con- 
taining zeros on the 


SCRIPT roll. 


Defines a subscript ex- 
pression on the SCRIPT 
roll by setting the 
traits, displacement, 
and array reference. 


Initializes the construc- 
tion of Polish notation 


for a new term in an 
expression. 

Constructs the Polish 
notation for a term in 
an arithmetic ex- 
pression. 

Exits from expression 
scanning on finding an 
array or subprogram 


name not followed by a 


left parenthesis; en- 
sures reference is 
correct. 

Determines whether a 
function call in an 
expression is to a 


statement function, a 
library function, ora 
global subprogram; 
calls SPROG ARG SEQ 
SCAN to scan arguments. 


expression, if 

finds non- 
letter, non-left paren- 
thesis, it goes here; 
determines if really a 
.constant. 


Scanning 
compiler 


Ensures that scalar is 
registered. 

Moves pointer to POLISH 
roll for any element in 
expression. 

Determines the operation 
indicated in an expres- 
sion, sets up the 


appropriate driver, and 
falls through to OP 
CHECK AND DEPOSIT. 


G0753 


GO754 


GO0755 


G0756 


GO757 


GO758 


G0759 


G0760 


GO761 


G0762 


G0763 
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Routine 
Name 

OP CHECK 
AND DEPOSIT 


GEN AND REG 
EXPON SPROG 


REG COMPLEX 
SPROG 


A MODE PICK 
AND CHECK 


MODE PICK 


B MODE PICK 
AND CHECK 


MODE CHECK 


NUMERIC EXP 
CHECK 


NUMERIC EXP 
CHECK AND 
PRUNE 


SPROG ARG 
SEQ SCAN 


ARG TEST 
AND PRUNE 


TEST FOR 
ALTERABLE 


Comments 

The current and previous 
operations are set up 
according to a prece- 


dence, and a Polish 
notation is con- 
structed. 


Determines the nature of 


an exponentiation, and 
records the required 
subprogram on the 


GLOBAL SPROG roll. 


Determines the nature of 
an Operation involving 
complex variables and 
registers the appropri- 
ate routine on the 
GLOBAL SPROG roll. 


Checks and sets mode of 
operator by inspecting 


the first of a pair of 
operands. 
Actually places mode 


field in driver. 


With second operand and 
driver set by A MODE 
PICK AND CHECK, resets 
driver mode; if complex 


raised to a power, 
ensures power is 
integer. 


Determines whether modes 
of operands are valid 
in relational and log- 
ical operations. 


Determines that an opera- 
tion or an expression 
is numeric, as opposed 
to logical, for 
compatibility. 


Uses 
then prunes 
POLISH roll. 


NUMERIC EXP CHECK, 
bottom of 


Constructs the Polish 
notation for the argu- 
ment list designated 
for a subprogram. 


Tests the number and type 
of arguments to library 
routine; moves label 


arguments to CALL LBL 
roll. 

Determines whether a 
scalar has been passed 
as a subprogram 
argument. 
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Label 





G0764 


G0765 


G0766 


GO767 


G0768 


GO769 


GO0770 


GO771 


GO772 


GO773 


GO774 


GO775 


190 


ween 


NO 


Routine 
Name_ 

ID SCAN 
USE 


ID 


NO USE 


ID SCAN 


ID 


REGISTER 
SCALAR 


REGISTER 
GLOBAL 
SPROG 
REGISTER 
RUNTIME GS 


REGISTER 
GLOBAL 
SPROG ROLL 


MODE SET 


CONST SCAN 


REGISTER 
COMPLEX 
CONST 


REGISTER 
FL CONST 


REGISTER 
WORK CONST 


CLASSIFY 


CLASSIFY 


Comments 

Sets a flag tested in 
MODE SET so that low- 
order bits of roll are 
not altered when vari- 
able is defined; state- 
ment does not use 
variable. 








Goes to ID CLASSTIFY after 
setting flag to indi- 
cate variable has not 
been used and mode 
Should not be set. 


Compiles name from source 
in central area and 
goes to ID CLASSIFY. 


the classifi- 
of a name 
scalar, array, subpro- 
gram, etc., and leaves 
pointer in WO; exits 
false if name not 
defined. 


Determines 
cation 


— 


Records new 
SCALAR roll. 


name on 


Determines if name is 
already a defined sub- 


program; if not re- 
cords it on GLOBAL 
SPROG roll. 

Records .name on GLOBAL 


SPROG roll. 


Determines the mode of 
the indicated variable, 
logical, integer, com- 
plex, etc., and inserts 
code in pointer in WO. 


Controls the translation 


and recording of 
constants. 

Records complex and 
double-precision com-— 


plex constants not pre- 


viously defined on 
appropriate roll. 
Records Single- and 
double-precision real 
constants on appropri- 


ate roll when not pre- 
viously defined. 


Records constant in WO as 
new integer constant if 
not defined. 


Label 
G0776 





GO777 


GO0778 


GO779 


GO780 


G0782 


G0783 


GO784 


G0O785 


G0786 


GO787 


G0788 


GO0789 


GO0790 


GO791 


G0792 


Routine 
Name 
REGISTER 
FX CONST 


CONST 
ANALYSIS 


CPLX CONST 
ANALYSIS 


CHECK CONST 


SIGN 


SCAN CONST 
SIGN 


HEXADECIMAL 


CONST SCAN 


REGISTER 
HEX CONST 


LBL ARG 
SCAN 


SCAN 
HOLLERITH 
ARGUMENT 


LITERAL 
CONST SCAN 


LITERAL 
CONST SCAN 
PAUSE 


REGISTER 
LITERAL 
CONST 


INIT PACK 
LITERAL 


PACK 
LITERAL 
COMPLETE 


PACK 
LITERAL 
CONST 


LOOK FOR 
ONE QUOTE 


Comments 

Records new integer con- 
stant if not previosuly 
defined. 


Determines 
constant and Jumps 


the type of a 
to 


proper conversion rou- 
tine. 

Converts a complex 
constant. 

Checks for unary minus 


Sign on constant. 


Scans first character of 
a constant for a_ sign; 
sets up driver if unary 
minus. 


Converts a hexadecimal 
constant. 
Records new c onstant on 


HEX CONST roll if not 
previously defined. 


Checks validity of a 
label argument to a 
Subprogram and records 
label as jump target. 


Scans an IBM card code 
argument to a sub- 
program, and records as 


literal constant. 


Distinguishes literal 
constants from logical; 
converts and records. 


Packs a literal constant. 


Records literal constant 
on LITERAL CONST roll 
if not previously de- 
fined. 


Initializes for conver- 
sion of a literal 
constant. 

Moves literal constant 
onto TEMP LITERAL roll 
if packed. 

Converts a literal con- 
stant from source 
input. 

Checks for a quotation 


mark not followed by a 
second quotation mark; 
sets ANSWER BOX. 
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Routine 
Name ___ 
PACK TWO 
FROM WORK 
PACK ONE 
FROM WORK 


Label 
G0793 





GO794 


GO0795 PACK 


CHAR 


CRRNT 


G0796 PACK CHAR 


GO797 SYMBOL SCAN 


G0798 LOGICAL 


CONST SCAN 


GO0799 JUMP LBL 
SCAN AND 


MOVE 


G0O800 FORMAT LBL 


SCAN 


GO801 FORMAT LBL 


TEST 


GO802 LBL SCAN 


GO0803 REGISTER 


LBL 


GO804 NEXT ZERO 
LEVEL COMMA 
NEXT ZERO 
COMMA 

OR R PAREN 
GO0805 NEXT ZERO 
COMMA 

OR CS 


Comments 

Packs low-order byte from 
last one or two groups 
on WORK roll onto 
LITERAL TEMP roll. 


Packs current character 
onto LITERAL TEMP roll. 


General routine to actu- 
ally place a byte in a 
word which, when com- 
plete, is placed on the 
LITERAL TEMP roll. 


Assembles identifier from 
input in SYMBOL 1, 2, 
and 3, and returrs. 


Scans logical constants 
from source input and 
records as integers. 


Scans label, defines it 
as jump target and 
pointer on POLISH roll. 
Locates transfers from 
innermost DO loops that 
are possible extended 
range candidates. Also 
checks for possible 
re-entry points into 
innermost DO loops, and 
tags such points. 

Scans a label, registers 

it if necessary, and 

ensures that it isa 

FORMAT label if already 

defined. 


Tests that pointer in WO 
indicates format label 
(vs. jump target 
label); if not, there 
is an error. 


Scans referenced label, 
defines on LBL roll if 
required, produces er- 
ror messages, leaves 
pointer in WO. 


Records label on LBL roll 
if not previously 
defined; leaves pointer 
in WO. 


Scans source input to 
next comma not in 
parentheses or to close 


off apair of paren- 
theses. 

Scans source input until 
next comma or slash 


not in parentheses. 


Routine 
Label 
GO806 


CLOSING 
SLASH 


GO807 NEXT ZERO 
COMMA SLASH 


OR CRP 


GO808 NEXT ZERO 


R PAREN 


GO0809 COMMA TEST 


G0810 INTEGER 
TERM 
SCAN AND 
MOVE 
GO0811 INTEGER 
CONST SCAN 
AND MOVE 


GO0812 INTEGER VAR 
SCAN AND 


MOVE 


G0813 INTEGER 


TEST 


G0814 SIGNED 
INTEGER 


SCAN 


G0815 INTEGER 


SCAN 


G0816 DP CONST 


MAKER 


G0817 DP ADJUST 


CONST 


Appendix E: Miscellaneous Reference Data 


Comments 

Scans source input until 
second of the next pair 
of slashes not enclosed 
in parentheses. 


Scans source input until 
next comma or slash not 
enclosed in parentheses 


or a closing right 
parenthesis. 
Scans source input until 


next zero level right 


parenthesis. 


Advances scan arrow and 
returns ANSWER BOX true 
if next active charac- 
ter is a comma; if it 
is a letter, sets up 
missing comma message, 
does not advance, and 
returns true; if it is 
neither, returns false. 


Scans integer constant or 
variable, defines on 
appropriate roll, puts 
pointer on POLISH roll. 


Scans integer constant; 
defines on FX CONST 
roll if required; puts 


pointer on POLISH roll. 


Scans integer variable; 
defines on roll if re- 
quired; puts pointer on 
POLISH roll. 


Determines whether a 
pointed to variable or 
constant is an integer. 


Scans and converts signed 
integer constant; de- 
fines on FX CONST roll 
if required. 


Scans and converts an 
unsigned integer con- 
Stant and register on 
FX CONST roll if 
required. 


Builds a double-precision 
constant from source 
input. 


Used in converting float- 


ing point numbers; 
adjusts for E or D 
field. 
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Label 
G0818 


G0820 


GO821 


G0823 


GO824 


G0825 


G0826 


G0827 


G0829 


G0832 


G0833 


G08 34 


G0835 


G0836 


G0838 
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Routine 
Name 
CONVERT TO 
FLOAT 





CLEAR TWO 
AND EXIT 
TRUE 
CLEAR ONE 
AND EXIT 
TRUE 


EXIT TRUE 
EXIT TRUE 
ML 


CLEAR ONE 
AND EXIT 
FALSE 


EXIT FALSE 


CLEAR TWO 
AND EXIT 
CLEAR ONE 
AND EXIT 


EXIT 
EXIT ML 


EXIT ON ROLL 


Comments 
Converts integer constant 
to floating point. 


Remove the specified num- 
ber of groups from the 
WORK roll, set ANSWER 
BOX to true, and re- 
turn. 


Sets ANSWER BOX to true 
and returns. 


Removes one 
WORK roll, 
BOX to 
returns. 


group from 
sets ANSWER 
true, and 


Sets ANSWER BOX to fals 
and returns. 
Remove specified number 


of groups from WORK 
roll and return. 


Returns. 


SYNTAX FAIL Records syntax error mes- 


ML 
ILLEGAL 


SYNTAX FAIL 
SYNTAX FAIL 


FAIL 


STATUS 
CONTROL 


DIGIT CONV 
SCAN 


CONV ONE 
DIGIT 


PRINT A 
CARD 


sage and goes to FAIL. 


If JPE flag off, 
WORK and EXIT 
addresses from last 
Status control, house- 
keeps Polish notation 
through STA XLATE EXIT, 
and returns with ANSWER 
BOX set to false; if 
the flag is on, values 
are restored for JPE 
and exit is to the 
location following last 
JPE POP instruction. 


restores 
roll 


Saves addresses of WORK 
and EXIT roll bottoms. 


from 
and 


Converts integer 
decimal to binary, 
leaves in DATA area. 


Converts decimal digit to 


binary, and leaves in 
DATA area. 

Controls printing of 
source listing and 


error messages. 


G08 40 


GO841 


GO842 


G0843 


GO845 


GO846 


GO847 


GO848 


GO849 


G0850 


GO0851 


G1034 


G1035 


G1037 


Routine 
Name ___ 
TEST FOR 
ERROR 
MESSAGE 


PRINT 
MESSAGES 


TEST AND 
ZERO PRINT 
BUFFER 


INIT READ 
A CARD 


READ A 
CARD 


TO 


SKIP . 
CHAR 


NEXT 
MASK 


REENTRY 


Comments 

Determines whether 
messages are to be 
printed; if so, prints 
dollar sign markers. 


error 


Prints line of 


messages. 


error 


Clears output for 


printer. 


area 


Scans source input for 
assignment statement 
(flag 1) or Logical IF 
with assignment for 
consequence (flag 2). 


Puts card onto SOURCE 
roll and re-enters INIT 
READ A CARD at proper 
point. 


Scans input to next 
source character not of 
a class of characters 
specified as input to 
routine, 


Entry point used to con- 


SKIP TO NEXT tinue masking operation 


CHAR MASK 


NEXT CHAR 
NEAT 

CHARACTER 
NEXT CHAR 


ML . 


on a new card. 


arrow to 
character. 


Advance scan 
next active 


NEXT CHARACTER 


Mi 


BCD TO 
EBCDIC 


DIGIT CONV 


INITIAL 


MAPT1 TO 
TMP1 


BUILD LOOP 
DATA GROUP 


DATA TERM 
ANALYSIS 


CONST 
REGISTER 
EXIT 


Converts CRRNT CHAR from 
BCD to EBCDIC. 


Initializes for the con- 
version of a number 
from decimal to binary 
(resets digit counts, 
clears DATA area, etc.) 


Converts value in format 
of TOP or BOTTOM, a 
Virtual address, toa 


true address. 
Constructs group on LOOP 
DATA roll. 


Checks for and sets’ flag 
if it finds unary minus 
in DATA statement. 


Common exit routine for 
constant recording rou- 
tines; leaves pointer 
to constant in WO. 


Label 
G1038 


G1039 


G1040 


G1041 


G1042 


G1043 


G1044 


G1070 


The labels enumerated in the 


list 


for the illustration of the major 
used by Allocate. 


Label 
G0359 
GO451 





G0362 


GO361 
GO0365 


GO371 
G0372 


GO0374 


Routine 
Name 


T AND F 


CONST SCAN 


EXIT ANSWER 


DEBUG STA 
XLATE 


AT STA 
XLATE 


TRACE STA 
XLATE 


DISPLAY STA 


XLATE 


TEYSKP 
SKIP TO 
NEXT 

PROGRAM 


PRESS 
MEMORY 


Comments 

Scans for logical con- 
stants T and F in DATA 
statements. 

General routine used by 
all EXITs which set 
ANSWER BOX to store 
value in ANSWER BOX and 
return. 

Translates DEBUG state- 
ment. 

Constructs AT roll entry 


from AT statement. 


Constructs Polish nota- 
tion for TRACE state- 
ment. 

Constructs Polish nota- 
tion and roll entries 
for DISPLAY statement. 


Calls IEYFORT to skip to 
end of present source 
module when roll stor- 
age is exhausted. 


Called by REASSIGN MEMORY 
to obtain additional 
core storage from roll 
Space that is no longer 


in use. If it obtains 
32 or more bytes, exit 
is back to REASSIGN 
MEMORY. Otherwise, 
exit is to IEYNOCR in 
TEYFORT to print NO 


CORE AVAILABLE message. 


A A RNR ARR ELIS SENET OR OSE Lene 


are used 


Chart 
ID __ 
05 
CA 


CA 
CB 


cc 
CD 


CE 
CF 


CG 


following 
in the flowcharts provided 
routines 


Routine Name 


tte werner RTT eoemaer Soertth ret ere nee 


START ALLOCATION 
ALPHA LBL AND L SPROGS 


ALPHA SCALAR ARRAY AND 
SPROG 
PREP EQUIV AND PRINT 
ERRORS 


BLOCK DATA PROG ALLOCATION 
PREP DMY DIM AND PRINT 
ERRORS 

PROCESS DO LOOPS 
PROCESS LBL AND 
SPROGS 

BUILD PROGRAM ESD 


LOCAL 


Label 
G0376 
G0377 


G0381 
GO437 


G0397 
GO401 
GO402 


GO442 
GO443 
GO444 
GO445 
GO441 
GO403 
GO405 
GO438 
GO545 


CL 


CM 
CN 
co 


CP 
CQ 
CR 
CS 
Od 
CU 
CV 
CW 
CX 


Routine Name 


ee ee TED SAE EE eR 


ENTRY NAME ALLOCATION 


COMMON ALLOCATION AND 
OUTPUT 

EQUIV ALLOCATION PRINT 
ERRORS 

BASE AND BRANCH TABLE 
ALLOC 


SCALAR ALLOCATE 
ARRAY ALLOCATE 

PASS 1 GLOBAL 
ALLOCATE 

SPROG ARG ALLOCATION 
PREP NAMELIST 
LITERAL CONST ALLOCATION 
FORMAT ALLOCATION 

EQUIV MAP 

GLOBAL SPROG ALLOCATE 
BUILD NAMELIST TABLE 
BUILD ADDITIONAL BASES 
DEBUG ALLOCATE 


SPROG 


SUPPLEMENTARY ALLOCATE LABEL LIST 


The 


routines 


are listed by G 


presented 
tines are those used in the 


in 


ascending order. 


described in this section 
number labels which are 
These rou- 
operation of 


Allocate which are not shown in the section 
of flowcharts for the phase. 


Label 
G0363 





G0364 


G0366 


G0367 


G0368 


Routine 


Name 


PREPROCESS 
EQUIV 


REGISTER 
ERRORS 
SYMBOL 


CHECK DMY 


DIMENSION 


GLOBAL DMY 
TEST 


DMY DIM 
TEST AND 
REG 


Appendix E: Miscellaneous Reference Data 


Comments 

Checks the data contained 
on the EQUIVALENCE roll 
and computes the 
reguired addresses. 


Checks the ERROR SYMBOL 
roll for the presence 
of the error just 
detected. All dupli- 


cate entries are pruned 
from the roll and all 


new entries placed on 
the roll. 
The dummy dimension is 


checked for definition 
as a global dummy vari- 
able, or in COMMON. 


Sets a pointer to the 
dummy array on the 
ENTRY roll; a pointer 
to the ARRAY roll is 
also set for each dummy 
array. 


The DMY DIMENSION roll is 
rebuilt with the infor- 
mation obtained from 
the COMMON DATA TEMP, 
TEMP, and GLOBAL DMY 
rolls. 
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Label 
G0 369 


G0370 


G0373 


G0375 


G0378 


G0379 


G0380 


G0382 


G0383 


GO384 


GO385 
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Routine 
Name 
DMY DIM 
TEST 


DMY 
CLASSIFY 


REGISTER 
BRANCH 
TABLE 


PUNCH 
REMAINING 
ESD BUFFER 
PUNCH 
REMATNING 
CARD 


SEARCH 
ROLL BY 
MAGNITUDE 


PRINT 
COMMON 
ERRORS 


PRINT 
COMMON 
HEADING 


BROQUIV 
ALLOCATION 


FLP AND 
PROCESS 
EQUIV 


PROCESS 
EQUIV 


INTEGRATE 


Comments 


The dimension data is 
checked for having been 
previously defined on 
the NAMELIST ITEMS and 
COMMON DATA rolls. 


Classifies a dummy, de- 
fining it as scalar if 
undefined; if it is an 


array sets call by name 
tag. 


Places work 
Zero on 
TABLE roll. 


containing 
the BRANCH 


Punches a card. 


The GENERAL ALLOCATION 
roll is searched to 
check if the largest 
equivalenced area has 
been allocated. 


Sets up for, and prints, 
COMMON allocation er- 
rorSe 


COMMON storage map head- 
ing is printed. 


Builds the EQUIV 
ALLOCATION roll from 
the boundary calcu- 
lated; records the 
absolute address as- 
Signed to the vari- 
ables. 

Inverts the contents of 


the EQUIVALENCE roll. 


Constructs complete 
EQUIVALENCE sets on the 
the GENERAL ALLOCATION 
roll using information 
on the EQUIVALENCE 
roll. 


Assigns locations’ rela- 
tive to the first vari- 
able listed for all 
variables in an EQUIVA- 
LENCE set’ if not al- 
ready allocated. 


Label 


G0386 


G0387 


G0388 


G0389 


GO391 


G0392 


G0393 


GO394 


G0395 


G0396 


Routine 
Name ____ 
TEST FOR 
BOUNDARY 





CSECT EQUIV 


ALLOCATION 


PRINT CSECT 


EQUIV MAP 


BUILD 
COMMON 
ALL ROLL 


SEARCH FOR 
LARGE 
ARRAYS 


BUILD A 
NEW CSECT 


PRINT A 
ARRAY 
CSECT MAP 


CONV TEMP3 
TO HEX 


GLOBAL DMY 
ALLOCATE 


TEST FOR 
CALL BY 
NAME 


Comments 
Sets and checks the 
smallest equivalenced 


area and highest bound-_ 
ary required for allo- 
cation of the variables 
indicated; resets pro- 
gram break according to 
requirement. 


Controls the allocation 
of EQUIVALENCE sets 
equal to or greater 
than 3K bytes intoa 
new control section. 


Sets up and formats’ the 
printing of the storage 
map for EQUIVALENCE 
sets equal to or great- 
er than 3K bytes. 


Calculates the base and 
displacement for EQUIV- 
ALENCE sets equal to or 


greater than 3K bytes 
and registers these 
sets on the COMMON 


ALLOCATION roll. 


Determines the size of 
arrays not defined as 
EQUIVALENCE or COMMON. 


Obtains the arrays that 
are equal to or greater 
than 3K bytes. 


Sets the program name and 
obtains a new control 
section for the alloca- 
tion of arrays and 
EQUIVALENCE sets. 


Sets the information for 
the printing of the map 
for arrays equal to or 
greater than 3K bytes. 


Converts the contents of 
the temporary register 
to hexadecimal. 


Assigns storage for glob- 


al dummy variables; 
expands the contents of 
the BASE TABLE roll, as 
required. 

Determines whether the 
indicated variable was 
called by name or 


called by value. 


Label 


G0398 


GO0399 


GO400 


GO404 


GO406 


GO407 


GO408 


GO409 


G0410 


GO411 


GO412 


Routine 
Name___ 


ALLOCATE 
SCALAR 
BOUNDARY 


ALLOCATE 
SCALAR 


CED SEARCH 


ALLOCATE 
SPROG 


ADJUST AND 


OUTPUT NAME 


PUNCH NAME 
LIST AND 
FIELD 


OUTPUT MODE 


WORD 


ADVANCE 
PROG BREAK 
AND PUNCH 


PUNCH 
LITERAL 


MOVE TO 
PUNCH BUFF 


PUNCH TAT 
CARD 


Comments 

Sets up allocation of 
scalars according to 
the size of the 
variable. 


Formats the allocation of 
scalars not defined as 
global dummies in COM- 
MON or in EQUIVALENCE 
sets. Initializes for 
the printing of the 
scalar map and calcu- 
lates the base and 
displacement. 


Determines if the vari- 
able is defined asa 
global dummy, in COMMON 
or in an EQUIVALENCE 
set. If it is, it sets 
the ANSWER BOX = true. 


Sets the type of the ESD 
cards that are to be 
punched and initializes 
for the allocation of 
Subprogram addresses. 


Sets the format for the 
punching of the 
NAMELIST name, and 


adjusts for storage. 


Sets the format for the 
punching of the address 
allocated for each 
NAMELIST according to 
storage required. 


Sets the format for the 
punching of the mode of 
the NAMELIST variable. 


Increases the item PRO- 
GRAM BREAK according to 
the storage allocation 
required for the 
variables indicated. 


Obtains the number of 
bytes and the address 
of the roll indicated 


for punching of literal 
constants. 


Moves the indicated data 
to the appropriate 
punch buffer. 


indicated 
setting 
and 


Punches the 
TXT card after 
up the address 
buffer information. 


Label 
G0413 





GO414 
GO415 


GO416 


GO417 


G0418 


G0420 


GO421 


G0422 


GO423 


GO424 


GO425 


GO426 


G0431 


GO432 


G0433 


GO0434 


G0435 
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Routine 


Name 


PUNCH 
REMAINING 
TXT CARD 


PUNCH ESD 
PUNCH LD 
ESD 


PRINT ERROR 


LBL ROLL 


CONVERT LBL 


PRINT ERROR 


SYMBOL 


PRINT 
SCALAR OR 
ARRAY MAP 


PRINT INIT 
MAP 

TEST AND 
PRINT MAP 


PRINT MAP 
HEADING 


PRINT 
FORMAT MAP 


PRINT 
HEADING 
MESSAGE 


PRINT MAP 
PRINT MAP 
ML 


PRINT 
REMATNING 
BUFFER 


PRINT ERROR 


REMAINING 
BUFFER 


ALLOCATE 
FULL WORD 
MEMORY 


ALLOCATE 
MEMORY 
ALLOCATE 
BY TYPE 


Comments 
Punches the remaining 
card indicated, after 
the area from which 
data was being taken 


has been punched. 


Punches the indicated ESD 
cards for the program 
area indicated. 


Prints the contents of 
this roll which con- 
tains the errors noted 


during operation. 


Converts the label of an 
erroneous statement to 
BCD for printing. 


contents of 
roll. 


Prints the 
the ERROR SYMBOL 


Prints the indicated map. 


Checks the existence of 
processing of a storage 
Map. Initiates the 
printing of the indi- 
cated map if one is not 
already being printed. 


Prints the heading of the 


indicated storage map 
for the variables 
designated. 

Prints map of FORMAT 
statements. 

Prints the heading in- 
dicated for error 
messages. 

Prints the variables as- 


sociated with the stor- 
age map heading from 
the rolls indicated. 


Print the remaining in- 
formation in the print 
buffer after the data 
has been obtained from 
the indicated storage 
area. 

Initializes for the 
allocation of a full 


word of storage. 


Allocate storage accord- 
ing to the type of the 
variable indicated; 
fullword, halifword, or 
byte. 
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Label 
GO0436 





G0439 


GO440 


GO4U6 


GO44T 


GO448 


GO4HYI 


GO450 


GO455 


GO456 


GO457 


GO458 
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Routine 

CALCULATE 
SIZE AND 
BOUNDARY 


CALCULATE 
BASE AND 
DISP 


REGISTER 
BASE 


BUILD 
FORMATS 


INCREMENT 
PNTR 


comments 
Determines the size and 
the boundary required 


for the variable indi- 


cated. 


Determines the base table 
entry and displacement 
for variable being 
allocated, constructing 
a new base table entry 
if necessary. 


Constructs a new BASE 
TABLE roll group. 


The base and displacement 
for FORMAT statements 
are calculated and the 
PROGRAM BREAK increased 
as required. 


Increases the address 
field of the pointer to 
the indicated roll so 


that the pointer points 
to the next group on 
the roll. 


ID CLASSIFY Variables are checked for 


REGISTER 
SCALAR 


MODE SET 


CLEAR THREE 


AND EXIT 
TRUE 


CLEAR TWO 
AND EXIT 
TRUE | 


CLEAR ONE 
AND EXIT 
TRUE 


EXIT TRUE 
EXIT TRUE 
MI, 


a previous classifica- 
tion as a global dummy, 
a scalar, an array, 
global Sprog, used 
library function, or a 
local sprog. 


Builds new group onto the 
SCALAR roll. 


Sets the mode of the 
variable to fixed or 
floating, explicit or 
implicit, or not used. 


Prunes three groups from 
the WORK roll, and 
exits with a true ans- 


wer in ANSWER BOX. 


Prunes two groups from 
the WORK roll, and 
exits with a true 


answer in ANSWER BOX. 


Prunes one group from the 
WORK roll, and exits 
with a true answer. in 
ANSWER BOX. 


Set ANSWER BOX to true 
and exit. 


Routine 








Label Name Comments | 
GO460 CLEAR TWO Prunes two groups from 
AND EXIT the WORK roll, and 
FALSE exits with a false 
answer in ANSWER BOX. 
G0O461 CLEAR ONE Prunes one group from the 
AND EXIT WORK roll, and exits 
FALSE with a false answer in 
ANSWER BOX. 
GO462 EXIT FALSE Sets ANSWER BOX to false, 
and exits. 
GO464 CLEAR FOUR Prunes four groups from 
AND EXIT the WORK roll, and 
exits. 
GO465 CLEAR THREE Prunes three groups from 
AND EXIT the WORK roll, and 
exits. 
G0466 CLEAR TWO Prunes two groups from 
AND EXIT the WORK roll, and 
exits. 
GO467 CLEAR ONE Prunes one group from the 
AND EXIT WORK roll, and exits. 
GO468 EXIT Obtains return address 
from the EXIT roll, and 
transfers to that 
address. 
UNIFY LABEL LIST 
The labels enumerated in the following 


in the flowcharts provided 
routines 


list are used 
for the illustration of the major 
used by Unify. 





Chart 
Label ID Routine Name 
GO111 07 START UNIFY 
GO145 DA ARRAY REF ROLL ALLOTMENT 
GO0113 DB CONVERT TO ADR CONST 
G0112 DC CONVERT TO INST FORMAT 
G0O115 DD DO NEST UNIFY 


SUPPLEMENTARY UNIFY LABEL LIST 


The routines described in this section 
are listed by G number labels which are 
presented in ascending order. These rou- 
tines are those used in the -operation of 
Unify which are not shown in the section of 
flowcharts for the phase. 


Label 
G0114 


G0116 


G0117 


G0118 


G0119 


G0120 


G0121 


G0122 


G0123 


G0124 


Routine 
Name 
CALL GEN 


NOTE ARRAY 
ALLOCATION 
DATA 


LEVEL ONE 
UNIFY 


DO LOOP 
UNIFY 


SWEEP 
SCRIPT 
EXP NOTE 


ZERO COEF 
UNIFY 


NOTE SCRIPT 
EXP 


ESTABLISH 
STD SCRIPT 
EXP 


NOTE HI 
FREQ STD 


SCRIPT EXP 
UNIFY 


Comments 

Transfers to the Gen 
phase of the compiler. 

Processes SCRIPT roll 
block to reflect stor- 


age allocation. 


Sets variables for the 
processing of a single 
loop or the outer loop 
of a nest of loops. 


Controls the processing 


of script data asso- 
ciated with current 
innermost loop. 
Compares the area code 
and the outer coeffi- 
cient of all other 
entries on the NEST 


SCRIPT roll to the bot- 
tom entry on the roll. 


Sweeps the script entries 
for the innermost loop, 
determining whether the 


outer coefficient is 
zero and that the inner 
coefficients are also 


the same. Depending 
upon the condition, the 
loops are re-registered 


on the LOOP SCRIPT 
roll. 

Establishes the nature of 
the script entries as 
standard or non- 
standard. 

Forms the LOOP CONTROL 
and REG roll entries 
for each SsTD SCRIPT 
pointer found in wO, 


also registering the 
STD SCRIPT LOOP CONTROL 
rung. 


Checks the frequency used 
for. a particular stand- 
ard script expression, 
and sets the frequency 
count. 


Controls the processing 
of innermost LOOP 
SCRIPT roll entries 


with matching area code 
and outer coefficients; 
also links each NONSTD 
roll entry with each 
STD roll entry, compar- 
ing the induction 
coefficients. 


Label 
G0126 


G0127 


G0128 


G0129 


G0130 


G0131 


G0132 


G0133 


G0134 


G0135 


G0136 


Appendix E: 


Routine 


Miscellaneous Reference Data 


Name Comments 
STANDARD Processes STD SCRIPT roll 
EXPS UNIFY when NONSTD roll 
entries have all been 
processed or have never 
existed. Moves entries 
to next outermost loop. 
CONVERT Picks a NONSTD roll entry 
NONSTD with a minimum dis- 
SCRIPT TO placement and processes 
STD it as if it were a 
standard script. 
SIGN ALLOC Utility routine to spread 
DISPLACE- the sign of negative 
MENT displacements. 
DELTA GE Processes paired STD or 
4087 UNIFY NONSTD roll entries 
with DELTA greater than 
4087 bytes. Generates 
second register and 
LOOP CONTROL entries. 
DELTA LE Processes paired STD or 
4087 UNIFY NONSTD roll entries 
with DELTA less’ than 
4087 bytes. DELTA is 
placed in each ARRAY 
REF entry in the chain. 
ESTABLISH Controls formation of 
REG LOOP CONTROL and REG 
STRUCTURE roll groups for SCRIPT 
pointer in WO. 
EST. REG Forms REG roll entry for 
GROUP SCRIPT pointer in WO. 
ESTABLISH Entry to establish loop 
LOOP control which sets up 
CONTROL stamps for impending 
LOOP CONTROL group. 
EST. LOOP Forms LOOP CONTROL group 
CONTROL for SCRIPT entry in W1. 
FORM OUTER Processes paired STD or 
SCRIPT NONSTD roll entries 
with best match in 
inner coefficients. 
Forms SCRIPT entry for 
next outermost loop 
with coefficient dif- 
ferences in coefficient 
slots. 
NOTE SECOND Runs the ARRAY REF 
REG THREAD thread, removing. each 


link to provide for the 
second register. 
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Routine 
Label Name Comments 
G0137 UPDATE Sums the frequencies of 
FREQS the STD or NONSTD pair 
to indicate increased 
usage. 
G0138 REG SCRIPT Registers the STD or 


NONSTD in WO on the STD 
or NONSTD roll. 


EXP 


G0139 PRUNE 
SCRIPT REL 
TO PNTR 


Utility routine to remove 
SCRIPT groups. 


GO0140 NOTE ARRAY Adjusts the information 
REF DELTA indicated from the 
SCRIPT allocation ac- 


cording to the displa- 
cement to the asso- 
Ciated ARRAY REF roll 
entries. 


G0O141 REALIZE 
REGISTERS 
SWEEP 


Sweeps the REG roll, as- 
Signing available reg- 
isters to the registers 
and temps, according to 
the frequency of use of 


the registers in the 
REG roll. 
G0142 NOTE HI Utility routine which 
FREQ REG notes the REG roll 
group indicating the 
highest frequency of 
use. 


G0143 ASSIGN Places next temp into the 


TEMPS FOR ARRAY REF run and ad- 

REGS justs the LOOP CONTROL 
Stamps to reflect temp 
usage. 


GO144 CONVERT REG Performs the actual 
TO USAGE transfer of REG or TEMP 
roll entries into the 

ARRAY REF threads. 


GEN LABEL LIST 


The labels contained in the following 
list are illustrated in the flowcharts 
provided with the description of the Gen 
phase of the compiler. 
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Chart 


Label _ID._ Routine Name 
GO491 08 START GEN 
GO499 EA ENTRY CODE GEN 
GO504 EB PROLOGUE GEN 
G0508 EC EPILOGUE GEN 
GO712 ED GET POLISH 
G04#93 EF LBL PROCESS 
G0515 EG STA GEN 

GO496 EH STA GEN FINISH 


SUPPLEMENTARY GEN LABEL LIST 


The routines described in this section 
are listed by G number labels which are 
presented in ascending order. These rou- 
tines are those used in the operation of 
Gen but not shown in the section pertaining 
to the phase. 


Routine 
Label Name _ Comments 
GO494 CLINCH Clears the base register 
table. 
GO497 ZERO THE Clears the accumulators 
ACS to be used. 
GO498 MOVE ZEROS Fills the indicated 


TO T AND C number of groups on the 
TEMP AND CONST roll 
with zeros. 

source 


GO500 INSERT PROG Puts name of 


NAME IN module on CODE roll. 
CODE 
G0501 MAIN Builds instructions for 
PROGRAM the entry into the main 
ENTRY program. 
GO0502 PRO AND EPI Determines the address 
ADCON GEN constant for prologues 
and epilogues for the 
instruction that is 
created. 


GO503 ADCON MAKER Builds ADCON roll group 


GEN and places adcon 
instruction on CODE 
roll. 

G0O505 LOAD DMYS Builds the code to load 

GEN the dummy arguments 
specified in a 
subprogram. 


Label 
GO506 


G0507 


G0509 


G0510 


G0O511 
G0512 


G0513 


G0514 


G0516 


G0517 


G0518 


G0519 


G0520 


G0521 


Routine 
Name 


BUILD DMY 


ARRAY DIM 


CALCULATE 
DMY DIM 


RESTORE DMY 


GEN 


TEST CALL 
BY NAME 


BUILD A 
MOVE DMY 
GROUP 
BUILD A 
STORE DMY 
ADD 
INCREMENT 
DMY PNTR 
BUILD A 
LOAD TWO 


ASSIGNMENT 
STA GEN 


AFDS STA 
GEN 


AFDS INIT 


ASSIGN STA 


GEN 


IF STA GEN 


LOGICAL IF 
STA GEN 


Comments 


Determines the dummy 
array dimensions speci- 
fied in the arguments 
for the subprogram. 


Calculates the dummy 
array dimensions speci- 
fied as arguments to a 


subprogram, and builds 
the appropriate in- 
structions. 


Restores the dummy argu- 
ments for value trans- 
fer at the end of a 
subprogram. 


Determines whether the 
arguments to a subpro- 
gram were designated as 
call by name values. 


These routines build 
the instructions that 
transmit the indicated 


values transferred by 
the dummy arguments to 
subprogram. 


Controls the construction 
of the code for an 
assignment statement. 


Controls and constructs 
the instructions for an 
arithmetic function 
definition statement. 


Initializes the construc— 
tion of the code for an 
arithmetic function 
definition statement by 
constructing the label 


and jump instructions. 

Constructs the object 
code for an ASSIGN 
statement. 

Constructs the object 
code for an IF 
statement. 

Constructs the object 
code for a Logical IF 
statement. 


Label 
G0522 





G0523 
GO0524 


G0525 


G0526 


G0527 


G0528 


G0529 


G0530 


G0531 


G0532 


G0533 


G0534 


G0535 


Appendix E: Miscellaneous Reference Data 


Routine 


Name 

BUILD JUMP 
INST 

GO TO STA 
GEN 

ASSIGN GO 
TO STA GEN 


GO TO JUMP 
GEN 


CGOTO STA 
GEN 
CGOTO FOR 


CALL RETURN 


GEN 


CONTINUE 
STA GEN 


BLOCK DATA 
GEN 


STA INIT 


DATA STA 
GEN 


ALIGN DATA 


INIT FOR 
VAR 


MOVE DATA 


MOVE TO 
CARD IMAGE 


Comments 
Constructs a 
struction, 
indicating 

branch point. 


branch in- 
with input 
type and 


These routines control 
and construct the 
object code required to 
execute the indicated 
type of GO TO state- 
ment. 


These routines construct 
the object code for a 
GO TO statement that is 
the subprogram return. 


Returns. 
Sets up the rolls’ and 
data used in the con- 


struction of the object 
code for the BLOCK DATA 
statement. 


Stores the statement 
number and leaves 
statement drives in WO. 


Determines the use and 
mode of the data 
variables and con- 


structs the object code 

based on this 

information. 
Adjusts the data for 
instruction format. 


Obtains the base, size, 
displacement, and area 
code of the indicated 
variable and adjusts 
the instruction format 
for the variable 
according to the infor- 
mation obtained. 


Sets up the beginning of 
the data for card 
format. 


Obtains the location of 
the indicated data for 
transfer to instruction 
format. 
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Label 
G0536 


G0537 
G0538 


G0539 


GO542 


GO543 


GO547 


— GO548 


G0549 


G0550 


G0551 


G0552 


G0553 


GO554 


GO555 
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Routine 
Name 
MOVE TO 


CARD REPEAT 


PUNCH A TXT 


CARD 


PUNCH A TXT 


CARD ML 
PUNCH TXT 
ENTRY 2 


CALCULATE 
VAR SIZE 


END STA GEN 


BSREF STA 
GEN 


STOP PAUSE 
STA GEN 


LOAD IBCOM 


RETURN STA 
GEN 


ENTRY STA 
GEN 

SPROG 

STA GEN 


DEFINE FILE 


STA GEN 


GRNTEE A 
TEMP 


ILLEGAL 
AFDS STA 
GEN 


Comments 

Controls the insertion of 
the data into the card 
format and the punching 
of the appropriate TXT 
card. | 


Write a TXT card from 
data whose location is 
provided. 


Determines Size of a 
variable from TAG field 
of pointer in WO. 


Builds code for AT if 
required and branches 
to TERMINATE PHASE. 


Controls the construction 
of the object code for 
a BACKSPACE, REWIND, or 
END FILE statement. 


Constructs the object 
code for a STOP or 
PAUSE statement. 


Builds an instruction for 


a call to the IBCOM 
routine. 
Builds the object code 


for a RETURN statement. 


Constructs the label in- 
struction for an ENTRY 
statement or the entry 
into a subprogram. 


Constructs the object 
code instructions for 
the DEFINE FILE 
statement. 


Ensures that the constant 
from DEFINE FILE is 
registered on the TEMP 
AND CONST roll. 


Generates an error link 
for a statement func- 
tion which was invalid. 


ILLEGAL STA Constructs a no-operation 


GEN ENTRY 


instruction and 
error link for 
statement in error. 


an 
the 


Label 
G0556 


G0557 


G0558 


G0559 


G0560 


GO0561 


G0562 


G0563 


GO0564 


GO0565 


G0566 


G0567 


Routine 
Name 


IO STA GEN 


INIT IO 
LINK GEN 


UNIT IO 
ARG 


DIRECT IO 


ARG 


FORMAT IO 
ARG 


IO INITIAL 
ENTRY GEN 


BUILD UNIT 


ARG 


BUILD A 
LINK ARG 


BUILD 
FORMAT ARG 


GRNTEE IO 
LINK ADD 


TOL DO 
CLOSE GEN 


IO List 
GEN RUN 


Comments 

Determines the type of 
input/output statement 
that is indicated and 


transfers to the rou- 
tines that process that 


particular type of 
Statement. 

Initiates and sets data 
for the generation of 
the input/output link- 
age. 

Determines’ the logical 
unit number of the 


input/output device. 


Sets up controls for the 
construction of the 
object code for direct- 
access input/output 
statements. 


Sets up data pertaining 
to the FORMAT for the 
construction of the 
object code of an 
input/output statement 
under format control. 


Sets up code for the call 
to IBCOM to control 
execution of the indi- 
cated input/output 
statement. 


Constructs argument pass- 
ed for unit number in 
input/output linkages. 


Constructs the object 
code for the arguments 
designated in the 
input/output state- 
ments, 

Constructs the object 


code for the designated 
format control of an 
input/output statement. 


Constructs the object 
code for input/output 
linkage. 


Generates object code for 
closing of implied DO 
in I/O list. 

Determines whether I/0 

list is DO implied. 


Label 
G0568 


G0569 


G0570 


GO571 


G0572 


G0573 


GO574 


GO575 


G0576 


G0O577 


G0578 


G0579 


G0580 


Routine 
Name___ 
IOL DO 
OPEN GEN 





IOL ARRAY 
GEN 


IO LIST 
PNTR GEN 
IOL PNTR 
GEN 


IO LIST 
ARRAY PNTR 
GEN 


BUTLD 
ELEMENTS 
ARG 


IO LIST DMY 


ARRAY 


GLOBAL DMY 
TEST 


IO STA END 
IO STA END 
GEN 


BUILD IO 
LINK 


LOAD 
ADDRESS 
TBCOM 


INIT IBCOM 
PNTR AND 
ENTRY 


CALCULATE 
LENGTH AND 
TYPE 


DO STA GEN 


Comments 
Sets up the data for the 
generation of instruc- 


tions for input/output 
DO loop. 

Generates linkage for 
secondary array entry 
to IBCOM. 

Determines the type of 
the I/O list, and con- 
trols the construction 
of the object code for 
the list. 

Sets up the data and 
determines the type of 


array list. 


Builds an argument for 
input/output linkage 
for a single element in 
an I/O list. 


Builds the object code 
for a dummy array I/O 
list. 

Determines whether the 
variable in question 
has been defined in 
usage as a global 
dummy e 


Generates call for end of 
I/O list. 


Controls construction of 
the object code to ter- 
Minate an input/output 
operation. 


Inserts the absolute call 
to the system input/ 
output routine, IBCOM. 


Initializes for process- 
ing of input/output 
Statements by storing 
code word and IBCOM 
pointer from POLISH 
roll. 


Determines the length and 
type of variables de- 
Signated in input/ 
output statements. 


Determines the nature of 
the DO statement, sets 
up the data for the 
code of the statement. 


Label 


G0581 


G0582 


G0583 


GO584 


G0585 


G0586 


G0587 


G0588 


G0589 


G0590 


Appendix E: 


Routine 
Name 


LOOPS OPEN 


GEN 


INIZ LOOP 
GEN 


INIZ GIVEN 
COEFF GEN 


DO CLOSE 
SBR 


FIND COEFF 
INSTANCE 


NOTE TEMP 
REQ 


INITIALIZE 


BY LOAD GEN 


GRNTEE TEMP 


STORED GEN 


GRNTEE 
SOURCE REG 
LOADED 


INCR GIVEN 
COEFF GEN 


Miscellaneous Reference Data 


Comments 

Obtains the DO control 
data and controls the 
construction of the 
appropriate instruc- 
tions. 


Determines the nature of 
the indicated DO loop 
after determining 
whether a loop exists. 


Constructs the object 
code for the initiali- 
zation of the indicated 


induction variable 
coefficient. 

Constructs the object 
code for the close of a 
DO loop after setting 
up controls for the 
increment and terminal 
values of the loop 
iteration. 

Determines the existence 


of the indicated nature 
of a loop through com 
parison of the desig- 


nated traits and 
coefficient. 

Determines whether a 
register has been 


assigned for the script 
expression in question 
or whether a temporary 
storage is required. 


Generates the load of 
registers to be used 
throughout a DO loop. 


Builds a estore instruc- 
tion for the temporary 
storage used by the 
script expression. 


Determines the area and 
location for the regis- 
ter to be used by the 


script expression, and 
generates the load 
instruction for the 
indicated temporary 
storage. 


Determines the nature and 


use of the loop incre- 
ment and builds the 
appropriate instruc- 


tions for the execution 
of the increment. 
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Label 


G0607 


G0608 


G0609 


G0610 


G0611 


G0612 


G0613 


G0614 


G0615 


G0616 


G0617 


G0618 


G0619 


G0620 


GO0621 


G0622 
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Routine 
Name 
CALL STA 
GEN 


FLP AND 
PREP VAR 


EXP GEN 
BY MODE 


EXP GEN AND 


GRNTEE AC 


GRNTEE EXP 


EXP GEN 


GEN RUN 


NOT. GEN 
UNARY MINUS 
GEN 


DIV GEN 


INTEGER 
DIV GEN 
SUB GEN 


ADD GEN 


MPY GEN 


INTEGER 
GEN 


INTEGER MPY Common 


DIV END 


SUM OR PROD 
GRNTEE 


MPY Generates code 


Comments 


Calls the routines which 
build the object code 
for the CALL statement. 


Flips POLISH roll and 
moves first variable to 
WORK roll. 


Controls the determining 
of the mode of the 
indicated expression. 


Generates code for ex- 
pression on bottom of 
POLISH roll and ensures 
that result is in a 
register. 


that the mode 
expression is 


Guarantees 
of the 
positive. 


Obtains the expression 
for GEN processing. 


Determines the operation 


mode of the entity in 
question. 
Inverts sign indicator 


for variable on bottom 
of WORK roll. 


Controls production of 
object code for divide 
operation. 

Generates code for inte- 
ger divide. 

Generates code for  sub- 
tract operation. 

Generates code for add 
operation. 

Controls production of 
Object code for multi- 


ply operation. 


for inte- 
ger multiply. 


end for multiply 
and divide generation 
routines; records 
register usage. 
Guarantees that one of 
the two elements on 
WORK roll is in a 
register and that mode 
of operator is correct. 


Label 


G0623 


G0624 


G0625 


G0626 


G0627 


G0628 


G0629 


G0630 


G0631 


G0632 


G0633 


G0634 


G0635 


G0636 


G0637 


G0638 


Routine 
Name 
DRIVER GEN 


AND GEN 
AND FINISH 
GEN 

OR GEN 

OR FINISH 
GEN 


PREPARE FOR 
LOGICAL GEN 


EO GEN 


NE GEN 
LT GEN 
GT GEN 
GE GEN 


LE GEN 


RELATIONAL 
GEN 


PREPARE FOR 
RELATIONAL 


POWER GEN 


POWER AND 
COMPLEX MPY 
DIV GEN 


Comments 

If an array driver, goes 
to SCRIPT PREP; if not, 
exits false indicating 
end of an expression. 


Generates code for an AND 
operation. 


Actually builds an AND 
operation on CODE roll. 


Generates code for an OR 
operation. 


Actually builds an OR 
operation on CODE roll. 


Sets up the data for the 
statement containing a 
logical operation. 


Generates code for an EQ 
relational operation. 


Generates code for an NE 
relational operation. 


Generates code for an LT 
relational operation. 

Generates code for a GT 

relational operation. 


Generates code for a GE 
relational operation. 

Generates code for an LE 

relational operation. 


Builds the object code 
instructions based on 
the relational condi- 
tion specified in the 
logical operation, 


Converts and adjusts data 
for construction of the 
object code of a rela- 
tional comparison. 


Builds exponentiation 
linkage on the CODE 
roll. | 

Sets up the data for 
operations involving 
multiplication or divi- 
Sion of exponentiated 


or complex variables. 


Label 
G0639 


GO0640 


GO0642 


G0643 


GO644 


GO645 


GO646 


GO0647 


GO0648 


GO649 
G0650 
G0651 


G0652 


Routine 
Name 
INTEGER 
POWER GEN 


SPROG GEN 


SNnoOMnr 


aL 2 


SUB 


(2 
ty 


& 


tid 


SPROG 
GEN 


END 


SPROG ARG 
SEQ GEN 


REG SPROG 
ARG 


GRNTEE ADR 
GEN 


TEST CONST 
ARG 


TEST AND 
STORE REGS 


GRNTEE AC 
GEN 


GRNTEE NEW 
AC GEN 
PICK A NEW 
AC 

PICK FL 

AC 

PICK A 
COMPLEX AC 


Comments 

Builds the appropriate 
load and multiply 
instructions for expo- 
nentiation depending on 
the mode of the 
operation. 

Determines the nature of 
the operand of a CALL 
statement or of a 
subprogram. 


Generates the code for a 
subprogram call includ- 
ing argument calcu- 


lations. 


Constructs the object 
code for the return or 
close of a subprogram. 


Controls the interpreta- 
tion of the sequence of 
arguments designated to 
a subprogram. 


Controls the register 
assignment to sub- 
program arguments as 
they are encountered in 
sequence. 


Guarantees that the 
subprogram arguments 
are assigned and builds 
the indicated load and 
store instructions. 


Determines mode of a con- 
stant subprogram 
argument. 


Tests to determine if any 
register used as an 
accumulator contains 
data; if so, generates 


code to store the con- 
tents in a temporary 
Location. 

Stores the contents of 


wO in an accumulator if 
not already designated. 


These routines deter- 
mine the accumulator to 
be used in an indicated 
operation depending 
upon the mode of the 
variable in question. 


Label 
G0653 


G0654 


G0655 


G0656 


G0657 


G0658 
G0659 


G0660 


G0661 


G0662 


G0663 


G0664 


G0665 


G0666 


G0667 
G0668 


G0669 


G0670 


G0671 


Routine 
Name 
CLEAR A 
PATR 
PICK A 
PAIR 
PICK A 
PAIR END 


TEST 
BEST 


FOR 
PATR 


GRNTEE 
POSITIVE 
GEN 


COMP FX 
CONST 
COMP FL 
CONST 
COMP DP 
CONST 


COMP 
COMPLEX 
CONST 


CORRECT FOR 
SIGN DATA 1 


INCLINE 
FUNCTION 
GEN 


CONVERSION 
FUNCTION 
GEN 


ABS 
FUNCTION 
GEN 

MOD 
FUNCTION 
GEN 

INT FUNC- 
TION GEN 
AIMAG FUNC- 
TION GEN 
CMPLEX 
FUNCTION 
GEN 

TWO ARG 
INLINE 
COMMON 
CONJG FUNC- 
TION GEN 


Appendix E: Miscellaneous Reference Data 


Comments 
These routines determine 
and clear a pair of 


fixed or floating ac- 
cumulators depending on 


the type of the reg- 
ister in wO. These 
routines are used in 
integer, multiply, 
divide, and complex 
operations. 

Determines the two opti- 


mal accumulators to be 
used for the operation 
indicated. 


Sets the mode of the 
indicates accumulator 
to positive if not 
already set, and 
generates appropriate 
code, 

Set the mode of the in- 


dicated constant. 


Sets the mode of the 
indicated constant. 


Complements the value in 
DATA1. 
Sets up table for the 


generation of code for 
in-line functions. 


Generates code to perform 
an in-line mode conver 
sion. | 


These routines 
the object code in- 
Structions for the in- 
line function indicated 
by the name of the rou- 
tine, 


generate 
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Label 
G0672 


G0673 


G0674 


G0675 


G0676 


G0677 


G0678 


G0679 


G0680 


G0681 


204 


Routine 
Name | 

SIGN FUNCT 
GEN 

DIM FUNCT 
GEN 


GRNTEE 
BOTH MODES 


GRNTEE 
MODE W1 


LOGICAL- 
CONVERSION 


FX 
CONVERS ION 


FL 
CONVERSION 


CONVERT TO 
COMPLEX 
END 


TEST A FL 
CONST 


DP 
CONVERS ION 


Comments 
(see Label G0665) 


Sets the mode of the data 


in WO and W1 to posi- 
tive if not already 
set. 

Determines the mode of 


the variable in W1 and 
transfers to the appro- 
priate conversion rou- 
tine depending on the 
mode of WO. 


Places the logical vari- 
able contained in woO 
into an accumulator. 


Places the variables con- 
tained in WO and Wi in 
an accumulator if the 
mode is I*2; otherwise, 
a conversion to float- 
ing point is made. 


Tests the contents of WO 
and Wi for floating 
variables or constants. 
If the contents are not 
floating variables or 
constants, it deter- 

mines the nature of the 
data, registers the 
variable or constant, 
and assigns an accumu- 


lator for the  oper- 
ation. 
Generates code to clear 


the imaginary register 
and loads the real 
register in real to 
complex conversion. 


Exits false if pointer in 
wO is not to a floating 
constant; otherwise, it 
loads the constant into 
central area and exits 
true. 


Determines the nature of 
the double-precision 
variable or constant 
indicated, converts 
into the indicated for- 
mat, assigns an accumu- 
lator, depending on the 
mode of the variable. 





G0683 


G0684 


G0685 


G0686 


G0687 


G0688 


G0689 
G0690 
G0691 
G0692 


G0693 


G0695 


G0696 


G0697 


G0708 


Routine 
Name 
TEST DP 
CONST 


COMPLEX 
CONVERSION 


DP COMPLEX 
CONVERSION 


COMPLEX 
AC TEST 


AC END AND 


CONV RETEST 


CONVERT 
RETEST 


REGISTER 
WORK CONST 


REGISTER FX 


CONST 


REGISTER FL 


CONST 


REGISTER DP 


CONST 
REGISTER 


Comments 
Exits false if pointer in 


wO is not to a double- 
precision constant; 
otherwise, loads con- 


stant into central area 
and exits true. 


Determines the mode and 
nature of the two com- 
ponents of the complex 
variable or constant. 


Determines the mode and 
registers the indicated 


double-precision com— 
plex variable or 
constant. 

Sets up FL AC roll for 
proper pointers to a 
value converted to 
complex. 

Used during conversion, 


to set up AC roll, and 
to determine whether 
conversion is complete. 


Sets up WORK roll so that 
GRNTEE MODE W1 can 
determine whether a 
conversion is complete. 


Records constant in WO as 
an integer constant. 


COMPLEX CONST 


REGISTER DO 


COMPLEX CONST 


FLOAT A FX 


FIX A FL 


FLOAT AND 
FIX COMMON 


TEST AC 
AC TEST 


Register the constant 
from DATA area on the 
indicated roll if not 
already defined; con- 
stant is compiler gen- 
erated. 

Converts a floating con- 


stant or generates code 
to convert a floating 
variable to fixed mode. 


Converts a fixed mode 
constant or generates 
code to convert a fixed 
variable to floating 
mode. 


Common exit for routines 
which write code to 
float or fix variables. 


Determines whether the 
mode of the indicated 
accumulator is fixed or 
floating. 


Label 


GO0709 


G0710 


GO711 


G0713 


GO714 


GO715 


G0716 


G0718 


G0719 


GO0720 


GO721 


G0723 


GO724 


GO725 


GO727 


GO0728 


Routine 
Name 


AC END 


GRNTEE AC 
ZERO 


SPOIL STO 
REG 


CLEAR THREE 
AND EXIT 
TRUE 

CLEAR TWO 
AND EXIT 
TRUE 

CLEAR ONE 
AND EXIT 
TRUE 


EXIT TRUE 
EXIT TRUE 
ML 


CLEAR THREE 
AND EXIT 
FALSE 
CLEAR TWO 
AND EXIT 
FALSE 

CLEAR ONE 
AND EXIT 
FALSE 


EXIT FALSE 
EXIT FALSE 
ML 


CLEAR THREE 
EXIT 

CLEAR THREE 
AND EXIT 
CLEAR TWO 
EXIT 

CLEAR TWO 
AND EXIT 
CLEAR ONE 
EXIT 

CLEAR ONE 
AND EXIT 


BAIT 
EXIT ML 


Comments 


Determines whether one or 
two accumulators are 
being used. 


Assures that the accumu- 
lator being used in the 
operation is register 
ZeCLO. 


Clears appropriate entry 
on AC roll for a 
register which has been 
stored. 


Remove indicated number 
of groups from WORK 
roll, set ANSWER BOX to 
true, and return. 


Sets ANSWER BOX to true 
and returns. 


indicated number 

groups from WORK 
set ANSWER BOX to 
and return. 


Remove 
of 
roll, 
false, 


Sets ANSWER BOX to false 
and returns. 


Remove indicated number 
of groups from WORK 
roll and return. 


Returns. 


EXIT ANSWER Sets ANSWER BOX and exits 


MIL, 


for EXIT routines which 
set ANSWER BOX. 


Label 
G0730 





GO731 


G0732 


G0733 


G0O734 


G0735 


G0736 


G0737 


G0738 


G0739 


GO744 
GO745 
G0746 
GO747 


G0748 


Appendix E: 


Routine 
Name 

ADCON MADE 
LBL MAKER 





CHECK JUMP 
LBL 


MADE LBL 
MAKER 


SCRIPT PREP 


CALCULATE 
SCRIPT 


TEST END 
SCRIPT 


CALCULATE 
OFFSET AND 
SIZE 


GRNTEE REG 
9 

TEST AND 
STORE REG 9 


BUILD A 
SHIFT 9 


BID INIT 
BIM INIT 
BIM BID 
INIT 


EXIT FULL 


BID 
BIDPOP 


Miscellaneous Reference Data 


Comments 
Builds ADCON roll and 
returns a pointer to 


the start of a group on 
the roll. 


Determines whether point- 
er in WO refers to a 
jump target label. 


Creates entry on BRANCH 
TABLE roll for made 
label, and returns 
pointer to group 
created. 

Sets up the data for the 
calculation of the 
indicated script ex— 
pression. 

Determines the mode and 


Operation of the vari- 
ables contained in the 
script expression. 


Determines the end of the 
Script expression. 


Determines the size of 
each element contained 
within an expression, 
and the displacement 
pertaining to each 
array. 


Place the index values 
for arrays in register 
9 if not already set. 


Builds a shift register 9 
instruction for sub- 
scripting; shift length 
is determined by array 
element size. 


Initializes data for the 
contsruction of the in- 
struction designated by 
the BID, BIN, or BIM 
POP instructions. 


Used on entry to BIN when 


BIN fills the EXIT 
roll. 

This is the assembler 
language routine which 


constructs the instruc- 
tion designated by the 
BIDPOP instruction. 
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Label 
GO0750 


GO751 


GO0752 


G0753 


GO754 


GO755 


G0756 


GO757 


GO0758 


GO759 
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Routine 
Name 
BIN 
BINPOP 


NOTE A 
CSECT 


BIM 
BIMPOP 


RX FORMAT 


RR FORMAT 


ADDRESS 
MAKER 


BUILD A 
BASE REG 


SCALAR 
OPERAND 
ARRAY 
OPERAND 
GLOBAL 
SPROG 
OPERAND 
USED FUNC- 
TION LIB 
OPERAND: 
NAMES LIST 
OPERAND 
FORMAT LBL 
OPERAND 
GLOBAL DMY 
OPERAND 


DMY LBL 
COMMON 


LBL OPERAND 
LOCAL SPROG 
OPERAND 


Comments 

This is the assembler 
language routine which 
constructs the instruc- 
tion designated by the 
BINPOP instruction. 


This routine obtains the 
Control section in 
which the current 


instruction being gen- 
erated is to be placed. 


This is the assembler 
language routine which 
constructs the instruc- 
tion designated by the 
BIMPOP instruction. 


used to 
type 


General routine 
build all 
instructions. 


RX 


This routine implements 
the RR format designa- 
tion for the instruc- 
tion being generated. 


Used to build all base, 
displacement, and index 
type addresses. 


Determines the base loca- 
tion within a particu- 
lar control section at 
which the object code 
instructions begin. 


Builds address for the 
specified type of oper- 
and. 


Generates address for 


FOMAT references. 


Builds address for refer- 
ences to labels and 
statement functions. 


Label 
G0760 


G0761 


G0762 


G0763 


GO764 


GO0765 


G0766 


G0767 


G0768 


G0O769 


G0770 


GO771 


Routine 


OPERAND 


BRANCH 
TABLE 
OPERAND 


BRANCH 
TABLE 
COMMON 


BRANCH 
S PROG 
COMMON 


T AND C 
OPERAND 


T AND C 
COMMON 


T AND C B 
COMMON 


LOCAL DMY 
OPERAND 


FX CONST 
OPERAND 


FX FL CONST 
SEARCH AND 


REG 
FL CONST 
OPERAND 


FX FL CONST 


COMMON 


SEARCH AND 


REG SP 
CONST 


SEARCH AND 


REG FX 
CONST 


SEARCH AND 


REG FL 
CONST 


Oments 

Builds address for refer- 
ence © to subprogram 
argument list. 


Builds address for refer- 
ences to made labels. 


Used by LBL and BRANCH 
TABLE OPERAND routines 
to contstruct address. 


Used by LBL, BRANCH TABLE 
and SPROG ARG OPERAND 
to construct address. 


Constructs address for 
references to temporary 
storage or constants. 


Used for T AND C OPERAND 


and pointers to  con- 
Stant rolls. 

Common exit for all 
branch and temporary 
and constant operand 
routines. 


Determines the base loca- 


tion for the indicated 
operand and builds the 
code data from this 
information. 

Determines the size of 
the fixed constant 
operand and constructs 


the instruction depend- 


ing upon this’ infor- 
mation. 
Moves Single-precision 


constant pointed to 
TEMP AND CONST roll if 
not already on roll. 


of 
AND 


Performs part of move 
constant to TEMP 
CONST roll. 


Searches TEMP AND CONST 
roll, registers con- 
stant if not already 
there, and returns 
pointer to TEMP AND 
CONST roll group. 


S ok 


Label 


GO772 


GO773 


GO774 


GO775 


G0776 


GO777 


GO778 


GO0779 


G0780 


GO781 


G0782 


G0783 


Routine 

Name __ Comments 

REG SP Registers single-preci- 

CONST sion constant on TEMP 
AND CONST roll. 

DP FL CONST Construct address for 

OPERAND references to double- 

COMPLEX precision real and 

CONST single-precision com- 

OPEFRAND plex constants. 

SEARCH AND Ensures that a double- 

REG DP CONST precision real or 

SEARCH AND Single-precision com- 

REG COMPLEX plex constant is on the 

CONST TEMP AND XONST roll and 
returns a pointer to 
it. 

REG DP Registers a new double- 

CONST precision constant on 
the TEMP AND CONST 
roll. 

DP COMPLEX Constructs address for 

CONST reference to a double- 

OPERAND precision complex con- 
stant. 

SEARCH AND Ensures that a double- 

REG DP precision complex con- 

COMPLEX stant is on the TEMP 

CONST AND CONST roll and 
returns a pointer to 
it. 

REG DP Registers anew double- 

COMPLEX precision complex con- 

CONST stant on the TEMP AND 


CONST roll. 


TEST DOUBLE Determines if the address 


WORD designated to the vari- 

BOUNDARY able or constant in WO 
begins on a doubleword 
boundary. 

ARRAY REF Handles array reference 

OPERAND pointers to obtain 
scripted arrays ad- 
dresses. 

LOAD REG Generates a load of a 

FROM TEMP base register from a 
temporary storage loca- 
tion. 

ARRAY PLEX Handles building address- 

OPERAND es when array plex is 
the indicated operand. 

SRCH AND ST Stores register 9 ina 


X9 FROM 
ARRAY PLEX 


temporary register if 
needed for generation 


of array plex address- 


es. 


Routine 
Label Name 
GO784 STORE IN 

TEMP 


G0785 STORE AND 
RETURN 
TEMP 


G0786 SEARCH 


TEMP ROLL 


G0O787 OPERAND RUN 


G0930 SPOIL STO 
VAR 
SPOIL STORE 


VAR 


G0931 SPOIL STORE 
VAR NON 
READ 10 


G0932 CLEAR ONE 
AND SPOIL 


CEAD 


G0933 SPOIL CEAD 


G0934 TEST A CEAD 


G0935 NO ARG 
SPROG END 


GEN 
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Comments 

Generates code to store 
that register in a tem- 
porary location if WO 
is a pointer to a 
register. 


Uses a temporary location 
in checking temporary 


pointers for the indi- 
cated constants. 
Beginning with a pointer 


to the TEMP PNTR roll 
in WO, searches for an 
avallabie temporary al- 
ready defined. Returns 


true, with pointer to 
TEMP AND CONST roll if 
found; otherwise, re- 
turns false. 

Selects processing rou- 
tine for present 


operand from pointer. 


Determines whether point- 
ed to variable is being 
used in subscript which 
is now contained in 
register 8 or 9; if so, 
spoils that register. 


Determines whether a 
stored variable which 
has not appeared in a 
READ should be stored. 


if pointed to 
variable is COMMON, 
EQUIVALENCE, alterable, 
or dummy; if so, spoils 
any register containing 
a subscript which uses 
any CEAD variable; and 
prunes one group from 
WORK. 


Determines 


Same as CLEAR ONE AND 
SPOIL CEAD except it 


does not prune WORK 
roll. 

Tests to determine 10 
variable pointed to by 
WO is COMMON, EQUIVA- 
LENCE, alterable, or 
dummy . 


Entry point for generat- 
ing a subprogram call 
without arguments. 
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Label 
G0937 


G0938 


G0939 


GO940 


GO941 


GO942 


G0943 


GO944 


GO945 


GO946 


GO947 


GO948 


GO949 


G0950 


GO0951 


GO952 
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Routine 
Name___ 


SIMPLE 
SCRIPT PREP 


CLEAR 3 
EXIT BIN 
CLEAR 1 
EXIT BIN 


EXIT BIN 


SUBCHK GEN 


SIMPLE 
SCRIPT 
OPERAND 


TEST FOR 
HIT 


LOAD 


SIMPLE X 


REG 


PICK A NEW 
SIMPLE X 
REG 


CALC ELEM 
SIZE AND 
SHIFT 


AT STA GEN 


TRACE ON 
STA GEN 


TRACE OFF 
STA GEN 


DEBUG 
INITIAL 
LINKAGE GEN 


DEBUG VAR 
ADR GEN 


DEBUG 
ELEMENTS 
GEN 


Comments 
Builds ARRAY PLEX roll 
for subscripts handled 


in registers 8 and 9. 





Exits from BIN, BIM and 
BID POP subroutines 
which remove the indi- 
cated number of groups 
from WORK. 

Exits from BIN, BIM, and 

BID POP subroutines. 


Builds code for SUBCHK 
entry if required. 
Generates the code to 
compute a subscript 
value to be held in 
register 8 or 9. 


Determines whether 
ister 8 or 
contains the 
subscript. 


reg- 
9 already 
present 


Generates code to set up 
register 8 or 9. 


Determines whether regis- 
ter 8 or 9 will be used 


for subscript which 
must be loaded. 
Calculates array element 


size and the length of 
shift necessary to mul- 
tiply by that value. 


Generates the object code 
for an AT statement. 


Generates DEBUG linkage 
for a TRACE ON 
statement. 

Generates DEBUG linkage 
for a TRACE OFF 
statement. 


Generates initial linkage 
to DEBUG. 


Generates address for 
INIT or SUBCHK 
variable. 

Generates number of ele- 
ments for DEBUG lLink- 
age. 


Routine 


Label Names Comments 
G0953 BIN Puts name of variable on 
VARIABLE CODE roll. 
NAME 
G0954 RETURN Returns pointer to a 
SCALAR OR SCALAR or ARRAY roll 
ARRAY PNTR group from less direct 
reference. 
GO0955 DEBUG INIT Generates DEBUG linkage 
GEN for INIT variables. 
G0956 DEBUG SHORT Generates DEBUG linkage 
LIST INIT for INIT of a full ar- 
GEN ray. 
G0957 DEBUG DMY Generates DEBUG linkage 
INIT GEN for INIT of a dummy 
variable. 
G0958 DISPLAY STA Generates DEBUG linkage 
GEN for a DISPLAY 
statement. 
G0959 DEBUG INIT Generates DEBUG calls 
ARG GEN after a CALL statement. 


EXIT LABEL LIST 


The labels enumerated in the following 
list are used in the flowcharts provided 
for the illustration of the major routines 
used by Exit. 








Chart 

Label ID Routine Name 

GO0381 09 EXIT PASS 

G0382 FA PUNCH TEMP AND CONST ROLL 
G0383 FB PUNCH ADR CONST ROLL 
~—6«G0384 FC PUNCH CODE ROLL 

G0399 FD PUNCH BASE ROLL 

GO400 FE PUNCH BRANCH ROLL 

GO402 FF PUNCH SPROG ARG ROLL 
GO403 FG PUNCH GLOBAL SPROG ROLL 
GO4O4 FH PUNCH USED LIBRARY ROLL 
GO405 FI PUNCH ADCON ROLL 

GO416 FJ PUNCH RLD ROLL 

GO424 FK PUNCH END CARD 

GO0564 FL PUNCH NAMELIST MPY DATA 


SUPPLEMENTARY EXIT LABEL LIST 


The routines described in this section 


are listed by G number labels which are 
presented in ascending order. These rou- 
tines are those used in the operation of 


Exit which are not shown in the section of 
flowcharts for the phase. 


Label 
G0385 


G0386 


G0388 


G0389 


G0390 


G0391 


G0392 


G0393 


GO394 


G0 396 


G0397 


G0398 


GO401 


GO406 


G0 407 


Routine 
Name 

SWEEP CODE 
ROLL 

SWEEP CODE 
ROLL ML 


PUNCH INST 
PUNCH INST 
ML 


PUNCH TWO 
HALFWORDS 


PUNCH ONE 
HALFWORD 


PUNCH 
THREE 
HALFWORDS 


PUNCH CODE 


ABS PUNCH 


RELOC 
CONST 
PUNCH 


ABS CONST 
PUNCH 

ABS CONST 
PUNCH ML 


DEFINE LBL 


ADCON PUNCH 


POC DATA 
PUNCH 


SWEEP BASE 
BRANCH 
ROLL 


HALF WORD 
WO TO TXT 
CARD 


WO TO TXT 
CARD 

WO TO TXT 
CARD ML 


Comments 
Determines the nature of 
a word on the CODE roll 


and processes it ac- 
cording to type. 
Determines the type of 
instruction to be 
punched (one, two, or 


three halfwords). 


Sets up a two halfword 
instruction format. 


Sets up a one halfword 
instruction format. 


Sets up a three halfword 
instruction format. 


Punches the indicated 
instruction in the 
indicated format. 


Sets up for the punching 
of object module abso- 
lute constants. 


Sets the format for the 
punching of a relocat- 
able absolute constant. 


Punches the indicated ab- 
solute constants in 
the object module. 


Defines indicated label 
on BRANCH TABLE roll. 


Punches the address con- 
stant indicated in WO. 


Sets up the information 
needed for the listing 
and punching of code 
contained on the CODE 
roll. 


Initializes for the 
punching of the groups 
contained on the BASE 
and BRANCH TABLE rolls. 


A halfword instruction 
format is set up for 
the contents of WO. 


Transfers the contents of 
WO to the output area 
to be punched. 


Label 
GO409 


G0O410 


GO411 


G0412 


G0413 


GO814 


G0O417 


GO418 


G0419 


G0420 


GO421 


GO422 


G0423 


GO425 


G0426 


Routine 


Name 


MOVE CODE 
TO TXT CARD 


INITIALIZE 
TXT CARD 
INITIALIZE 
TXT CARD ML 


PUNCH 
PARTIAL 
TEXT CARD 


PUNCH A 
CARD ML 


PUNCH AN 
ESD CARD 


DEPOSIT 
LAST ESD 
NO. ON 

RLD CARD 


DB SECOND 
RLD WORD 
WITH CONT 


DB SECOND 
RLD WORD 
WITH NO 
CONT 


DB SECOND 
RLD WORD 


DEPOSIT 
WORD ON 
RLD CARD 


PUNCH AN 
RLD CARD 
TERMINATE 


RLD 
PUNCHING 


LIST CODE 


RS OR SI 
FORMAT 
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Comments 

Transfers the indicated 
code to the output area 
to be punched. 


Initialize the format 
for the punching of the 
TXT cards. 


Punches any part of a TXT 


card. 


Punches a compiete 


card. 

Sets the format for the 
punching of an ESD 
card. 


the 
the 
for 


Obtains and deposits 
last ESD number on 
indicated RLD card 
punching. 


Sets the format of a card 
with a continuation to 
a second card. 


Turns off the continua-— 
tion indicator for the 
punching of the RLD 
card. 


Places the second word 
into the RLD format in 
the output area. 


Places the indicated word 


into the appropriate 
location in :the RLD 
format. 


Punches the indicated RLD 
card. 


Determines whether the 
RLD card is full and 
sets controls accord- 
ingly. 


Sets up the format for 
the object module list- 
ing, and determines the 
instruction format for . 
each indicated instruc- 
tion to be printed. 


Determines whether the 


indicated instruction 
is RS or SI format. 
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GO430 


G0431 


G0432 


G0 433 


GO434 


GO435 


G0436 


G0437 


G0438 


G0439 


GO440 


210 


Routine 
Name 
RS FORMAT 


SI FORMAT 


RX FORMAT 


RR FORMAT 


SS FORMAT 


ADCON LIST 


DC LIST 


PRINT ADCON 
LBL 


PRINT A 
MADE LBL 


MADE LBL 
ADCON LBL 
COMMON 


PRINT A LBL 


PRINT BCD 
OPERAND 


PRINT A 
LINE 
PRINT A 
LINE PLUS 
ONE ML 
PRINT A 
LINE ML 


Comments 

Sets up the RS format for 
the indicated instruc- 
tion. 


Sets up the SI format for 
the indicated instruc- 
tion. 


Sets up the RX format for 
the indicated instruc- 
tion. 


Sets up the RR format for 
the indicated instruc- 
tion. 


Sets up the SS format for 


the indicated instruc- 
tion. 
Sets up the format (DC 


format) for the address 
constants in the object 
module that are to be 
listed. 


Lists DC constants. 


Sets controls for the 
printing of the indi- 
cated address constant. 


Sets controls for the 
printing of the indi- 
cated label which has 


been created by the 
compiler. 

Inserts the indicated 
label into the print 


output area. 


indicated 
object 


Prints the 
label on the 
module listing. 


Inserts the indicated op- 
erand into the appro- 
priate position of the 
object listing in the 
output area. 


Print the indicated line 
once a full line has 
been set up in the out- 
put area. 


Label 


GO443 


GO44y4 


GO445 


GO446 


GO447 


GO448 


GO449 


GO450 


GO452 


GO0453 


GO454 


G0455 


G0456 


Routine 
Name 
PRINT 
HEADING 
PRINT | 
HEADING 
ML 


PRINT TOTAL 
PROG REQMTS 
MESS 


PRINT CSECT 
MEMORY 
REQOMTS 

MESS 


PRINT 
CSECT 
TOTAL 
MESSAGE ML 


PRINT 
CSECT 
MESSAGE 


CONV AND 
PRINT 


D2(B2) ML 


CONV AND 
PRINT 
D1B1 ML 


CONV AND 
PRINT D2 
CONV AND 
PRINT D1 


CONV AND 
PRINT Bl 
CONV AND 
PRINT B2 ML 


CONV AND 
PRINT R2 ML 
CONV AND 
PRINT X2 


CONV AND 
PRINT 12 


CONV AND 
PRINT R1 
CONV AND 
PRINT Li 


MI, 
ML 


CONV WO AND 
PRINT 
CONVERT WO 
AND PRINT 


Comments 
Prints this indicated 
heading that is to ap- 


pear on the object mod- 
ule listing. 


Sets up this indicated 
message in the print 
output area. 

Sets up the indicated 
message in the print 
output area. 

Sets up this indicated 
message in the print 
output area. 

Sets up this indicated 
message in the print 
output area. 

Converts the indicated 


general register desig- 
nation for the RX, RS, 
and RR formats. 


Converts the indicated 
address and general 
register designation 
for the SI and SS 
formats. 

Converts the indicated 
address and general 
register designations 
to instruction format. 

Converts) the indicated 
address and general 
register designations 


to instruction format. 


Converts the indicated 
address and general 
register designations 
to instruction format. 

Converts the indicated 
address and general 
register designations 


to instruction format. 


the indicated 
address and general 
register designations 
to instruction format. 


Converts 


Converts the contents of 
WO to decimal and in- 
serts into print output 
area. 


Label 
GO458 


GO459 


GO460 


GO461 


GO462 


GO464 


Routine 
Name 

CONV AND 
PRINT PLUS 
ONE ML 


PRINT A 
COMMA ML 


PRINT A 
LEFT PAREN 
ML 


PRINT A 


RIGHT PAREN 
MT. 


PRINT A 
CHAR ML 


CLEAR ONE 
EXIT 

CLEAR ONE 
AND EXIT 


Comments 
Converts a number to dec- 
imal and places in 


print buffer. 


Places a comma into print 
output area. 


Places a left parenthesis 


into the print output 
area. 

Places right paren- 
thesis into the print 
outount area. 
outont area. 

Places the indicated 
character into the 


print output area. 


Prunes one word from the 
WORK roll and exits. 


Label 
GO465 


G0566 


GO567 


G0569 


Routine 
Name 
EXIT 

EXIT MIL 
EXIT 
ANSWER ML 


RLD ALIGN 
SWEEP TE 


RID AT.TGN 
TEST 
SWEEP TEST 


GET ADR 
FROM PNTR 
ML 
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Comments 

Obtains the last entry on 
the EXIT roll and 
transfers to the indi- 
cated location. 


Sorts RLD entries so that 
all RLDs in one CSECT 
appear together. 


Determines whether pres- 


ent RILD is in the 
CSECT now being con- 
structed. 


Gets location on DATA VAR 
roll from pointer in 
Wo. 
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APPENDIX F: 


This appendix describes the logic of 
some of the object-time library subprograms 
that may be referenced by the FORTRAN load 


module. Included at the end of this appen- 
dix are flowcharts that describe the logic 
of the subprograms. (G is the first 


character in the chart identification for 
each flowchart associated with a library 
subprogran. ) 


module compiled from a 
FORTRAN source module must first be pro- 
cessed by the linkage editor prior to 
execution on the IBM System/360. The link- 
age editor must combine certain FORTRAN 
library subprograms with the object module 
to form an executable load module. The 
library subprograms exist as separate load 
modules on the FORTRAN 
(SYS1.FORTLIB). Each library subprogram 
that is externally referenced by the object 
module is included in the load module by 
the linkage editor. Among the library 
subprograms to which such references may be 
made are: 


Each object 


e THCFCOMH (object-time input/output 
source statement processor) -- entry 
name IBCOM#. If the extended error 
message facility is specified, this 
module is replaced by IHCECOMH. 


e IHCFIOSH (object-time sequential access 
input/output data management interface) 
-- entry name FIOCS#. If the extended 
error message faciltiy is specified, 
this module is replaced by IHCEFIOS. 

e THCNAMEL 


(object-time namelist rou- 


tines) -- entry names FRDNL# and 
FWRNL#. 

e ITHCDIOSE (object-time direct access 
input/output data management interface) 
-- entry name DIOCS#. If the extended 
error message facility is specified, 


this module is replaced by IHCEDIOS. 


e IHCIBERH (object-time source statement 
error processor) -- entry name IBERH#. 

e THCFCVTH (object-time. conversion rou- 
tine) -- entry name ADCON#. 

e THCDBUG (object-time debug facility 
Support routine) -- entry name DEBUG#. 

e IHCTRCH (object-time terminal error 
message and diagnostic traceback rou- 
tine) -- entry mame IHCTRCH. If the 


extended error message facility is 
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extended 
system library 


specified, this module is 
THCETRCH. 


replaced by 


e THCADJST -- 
alignment. 


processing boundary mis- 


e IHCFINTH (object-time program interrupt 
processor). If the extended error mes- 
sage facility is specified, this module 
is replaced by IHCEFNTH. 


e ITHCERRM (object-time error message pro- 
cessor. The module monitors all 
execution-time errors). 


Module names used in the following dis-— 
cussions are those in effect when the 
error message facility has not 
been specified. However, the descriptions 
apply also with the extended error message 
facility, unless otherwise stated. 


THCFCOMH receives input/output requests 
from the FORTRAN load module via compiler- 
generated calling sequences. IHCFCOMH, in 
turn, submits these requests to the appro- 
priate data management interface (IHCFIOSH 
Or IHCDIOSE). 


IHCFIOSH receives sequential access 
input/output requests from IHCFCOMH and, in 


turn, submits those requests to the appro- 
priate BSAM (basic sequential access 
method) routines for execution. 

IHCDIOSE receives direct access input/ 


output requests from IHCFCOMH and, in turn, 
Submits those requests to the appropriate 
BDAM (basic direct access method) routines 
for execution. 


If source statement errors are detected 
during compilation, the compiler generates 
a calling sequence to the IHCIBERH subpro- 


gram. IHCIBERH processes object-time 
errors resulting from improperly coded 
source statements. IHCFCVTH contains’ the 


various object time conversion routines 
required by IHCFCOMH and IHCNAMEL. IHCTRCH 
processes terminal object-time error mes- 
sages and produces a diagnostic traceback 
for IHCFCOMH. IHCADJST processes object- 
time specification exceptions if the bound- 
ary alignment option is specified by the 
user during system generation. 


ITHCFCOMH 


THCFCOMH performs object-time implemen- 


tation of the following FORTRAN source 
statements. 
e READ and WRITE (for sequential 
input/output) 
e READ, FIND, and WRITE (for direct 


access input/output) 


e BACKSPACE, REWIND, and ENDFILE (sequen- 
tial input/output device manipulation) 


e STOP and PAUSE (write-to-operator) 


In addition, IHCFCOMH: (1) initializes 
GLithmetic-—type program interruptions, and 
(2) terminates load module execuion,. 


All linkages from the load module to 
ITHCFCOMH are compiler generated. Each time 
one of the above-mentioned source state- 
ments 1S encountered during compilation, 
the appropriate calling sequence to 
IHCFCOMH is generated and is included as 
part of the object module. At object-time, 
these calling sequences are executed, and 
control is passed to IHCFCOMH to perform 
the specified operation. 


Note: IHCFCOMH itself does not perform the 
actual reading from or writing onto data 
sets. It submits requests for such opera- 
tions to the appropriate input/output 
data management interface (IHCFIOSH or IHC- 
DIOSE). The input/output interface, in 
turn, interprets and submits the requests 
to the appropriate access method (BSAM or 
BDAM) routines for execution. Figure 16 
illustrates the relationship between 
ITHCFCOMH and the input/output data manage- 
ment interfaces. 


Charts G0, Gil, and G2 illustrate the 
overall logic and the relationship between 
the routines of IHCFCOMH. Table 16, the 
ITHCFCOMH routine directory, lists the rou- 
tines used in IHCFCOMH and their functions. 


The routines of IHCFCOMH are divided 
into the following categories: 


e Read/write routines 


e Input/output device manipulation rou- 


tines 
e Write-to-operator routines 
e Utility routines 


The read/write 
the sequential 


routines implement both 
input/output statements 
(READ and WRITE) and the direct access 
input/output statements (READ, FIND, and 
WRITE). (The direct access FIND statement 
is treated as a READ statement without 
format and list.) 


Appendix F: 


| FORTRAN | 
| Load | 
| Module | 
bee oe gee 
| 
| 
Input/output | 
Request | 
| 
| 
ame aearie! eee See aaa iets 
| IHCFCOMH | | IHCFCVTH | 
| (Determine [-—{Conversion| 
[request type)| | Routines | 
Let LL 4 
| | 
| 
Submit | | Submit 
Sequential i [ Direct 
Access | [ Access 
Input/output [ | Input/output 
Request to | [ Request to 
IHCFIOSH | | IHCDIOSE 
| | 
| | 
pow 1-75 p-1------~---- 
| IHCFIOSH | | IHCDIOSE | 
| (Sequential | [| (Direct | 
| Access | i Access | 
| Input/output | | Input/output | 
| Interface) | | Interface) | 
Bete ake ees tones J eae eee eer J 
| | 
| | 
Interpret | | Interpret 
and Submit | |} and Submit 
Request to | | Request to 
Appropriate | | Appropriate 
BSAM Routine | | BSAM/BDAM 
| | Routine 
| | 
sae ee Piece nen Geena 
| BSAM | | BSAM/BDAM | 
| Routines | | Routines | 
Bs eee ek J bento oe J 
Figure 16. Relationship Between IHCFCOMH 
and Input/Output Data Manage- 
ment Interfaces 
The input/output device manipulation 


youtines implement the BACKSPACE, REWIND, 
and END FILE source statements for sequen- 
tial data _ sets. These statements are 
ignored for direct access data sets. 


The write-to-operator routines implement 
the STOP and PAUSE source statements. 


The utility routines: (1) 
errors detected by FORTRAN library 


process 
subpro- 


grams, (2) process arithmetic-type program 
interrupts, and (3) terminate load module 
execution. 
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READ/WRITE ROUTINES 


The READ/WRITE routines of IHCFCOMH 
implement the various types of READ/WRITE 
statements of the FORTRAN IV language. For 
Simplicity, the discussion of these rou- 
tines is divided into two parts: 


_® READ/WRITE 
NAMELIST 


statements not using 


®e READ/WRITE statements using NAMELIST 


READ/WRITE Statements Not Using NAMELIST 


For the implementation of both sequen- 
tial and direct access READ and WRITE 
Statements, the READ/WRITE routines of 
THCFCOMH consist of the following three 
sections: 


1. An opening section, which initializes 
data sets for reading and writing. 


2e An I/O list section, which transfers 
data from an input buffer to the I/0 
list items or from the I/O list items 
to an output buffer. 


3. A closing section, which terminates 
the input/output operation. 


Within the discussion of each section, a 
read/write operation is treated in one of 
two ways: 


e AS a read/write requiring a format. 


e As a read/write not requiring a format. 


Note: In the following discussion, the 
term “read operation" implies both the 
sequential access READ statement and the 
direct access READ and FIND statements. 


The term "write operation" implies both the 
sequential access WRITE statement and the 
direct access WRITE statement. 


OPENING SECTION: The compiler generates a 
calling sequence to one of four entry 
points in the opening section of IHCFCOMH 
each time it encounters a READ or WRITE 
Statement in the FORTRAN source module. 
These entry points correspond to the opera- 


214 


tions of read or write, requiring or not 


requiring a format. 


Read/Write Requiring a Format: If the 


operation is a read requiring a format, the 
opening section passes control to the 
appropriate input/output data management 
interface to initialize the unit number 
specified in the READ statement for read- 
ing. (The unit number is passed, as an 


argument, to the opening section via the 
calling sequence.) The input/output inter- 
face: (1) opens the data control block 


(via the OPEN macro instruction) for the 
specified data set if it was not previously 
opened, and (2) reads a record (via _ the 
READ macro instruction) containing data for 
the I/O list items into an input/output 
buffer that was. obtained when the data 
control block was opened. The input/output 
interface then returns control to the open- 
ing section of IHCFCOMH. The address of 
the buffer and the length of the record 
read are passed to IHCFCOMH by the input/ 
output interface. These values are saved 
for the I/O list section of IHCFCOMH. The 
opening section then passes control to a 
portion of JIHCFCOMH that scans the FORMAT 
statement specified in the READ statement. 
(The address of the FORMAT statement is 
passed, aS an argument, to the opening 
section via the calling sequence.) The 
first format code (either a control or 
conversion type) is then obtained. 


For control type codes (e.g., an H 
format code or a group count), an I/O list 
item is not required. Control passes to 
the routine associated with the control 
code under consideration to perform the 
indicated operation. Control then returns 
to the scan portion, and the next format 
code is obtained. This process is repeated 


until either the end of the FORMAT  state- 
ment or the first conversion code is 
encountered. 


For conversion type codes (e.g., an I 
format code), an I/O list item is required. 
Upon the first encounter of a conversion 
code in the scan of the FORMAT statement, 
the opening section completes its proces- 
Sing of a read requiring a format and 
returns control to the next sequential 
instruction within the load module. 


The action taken by IHCFCOMH when the 
various format codes are encountered is 
illustrated in Table 9. 


@®Table 9. IHCFCOMH FORMAT Code oe 


y 
| FORMAT Code pesceipeion | Type \O6rresponaine Action Upon Code by IHCFCOMH | 
}---------- ~-}-------------- 4---------- }---~-----+--+----------------------------------- { 


Jbeginning of |control Save location for possible repetition of the| 
| statement format codes; clear counters. | 


| 

| | | 

| | | | 

| | | | 
jn( |group count | control j|Save n and location of left parenthesis’ for| 
| | | | possible repetition of the format codes in | 
| | | | the group. | 
| | | | | 
| | | | 
jn jfield count | control |Save n for repetition of format code that | 
| | | | follows. | 
| | | | | 
| | | | | 
jnP jscaling factor|control {Save n for use by F, E, and D conversions. | 
| | | | | 
| | | | | 
{Tn {column reset [control [Reset current position within record to nth| 
| | | | column or byte. | 
| | | | 
| | | 
| nx jskip or blank |control |Skip n characters of an input record, or insert n| 
| | | | blanks in an output record. | 
: | | | | 
|*text*® or nH{[literal data |control |Move n characters from an input record to the| 
| [ | j FORMAT statement, or n characters from the| 
| | | | the FORMAT statement to an output record. | 
| | | | 
| Fw.d |F-conversion |conversion|Exit to the load module to return control to 
J Ew.d JE-conversion |conversion| entries FIOLF or FIOAF in IHCFCVTH. Using in-|]| 
|Dw.d |D-conversion |conversion| formation passed to the I/O list section, the| 
| Iw |I-conversion |conversion| address and length of the current list item| 
| Aw {A-conversion |conversion| are obtained and passed to the proper conver-| 
|Gw.d |G-conversion |conversion| sion routine together with the current posi-| 
| Lw.d |L-conversion |conversion| tion in the input/output buffer, the _ scale| 
| Zw |Z-conversion |conversion| factor, and the values of W and d). Upon| 
| | [ | return form the conversion routine the current] 
| | | | field count is tested. If it is greater than| 
| | [ | 1, another exit is made to the load module to 
; | | | obtain the address of the next list item. | 
, eae end  coneeed oo group count. If it is greater than 1, | 
| | [ | repeat format codes in group: otherwise, | 
| | | {| continue to process FORMAT statement from | 
: | | | current position. | 
| | | | | 
|7 |record end | control [Input or output one record via input/output | 
i | | | interface and READ/WRITE macro instruction. | 
| | | | | 
| jend of | control [If no I/O list items remain to be transmitted, | 
| | statement [ | return control to load module to link to the | 
[ | | {| the closing section; if list items remain, | 
| | { | input or output one record using input/outout | 
| | | | interface and READ/WRITE macro instruction. | 
| | | | Repeat format codes from last parenthesis. | 
bios ee atta Ss ea, SMa ere SI pc a lo J 


If the operation is a write requiring a passed, as an argument, to the opening 
format, the opening section passes control section via the calling sequence.) The 
to the input/output interface to initialize input/output interface opens the data con- 
the unit number specified in the WRITE trol block (via the OPEN macro instruction) 
statement for writing. (The unit number is for the specified data set if it was not 
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previously opened. The input/output inter- 
face then returns control to the opening 
section of IHCFCOMH. The address of an 
input/output buffer that was obtained when 
the data control block was opened is’ saved 
for the I/O list section of IHCFCOMH. 
Subsequent opening section processing, 
Starting with the scan of the FORMAT state- 
ment, is the same as that described for a 
read requiring a format. 


Read/Write Not Requiring a Format: If the 
operation is a read or write not requiring 


a format, the opening section processing 
except for the scan of the FORMAT statement 


is the same as that described for a read or 


write requiring a format. (For a read or 
write not requiring a format, there is no 
FORMAT statement. ) 


I/O LIST SECTION: The compiler generates a 
calling sequence to one of four entry 
points in the I/O list section of IHCFCOMH 
each time it encounters an I/O list item 
associated with the READ or WRITE statement 
under consideration. These entry points 
correspond to a variable or an array list 
item for a read and write, requiring or not 
requiring a format. The I/O list section 
performs the actual transfer of data from: 
(1) an input buffer to the list items if a 


READ statement is being implemented, or (2). 


the list items to an output buffer if a 
WRITE statement is being implemented. In 
the case of a read or write requiring a 
format, the data must be converted before 


it is transferred. 


Read/Write Requiring a Format: In proces- 
Sing a list item for a read requiring a 


format, the I/O list section passes control 
to the conversion routine associated with 
the conversion code for the list item. 
(The appropriate conversion routine is de- 
termined by the portion of IHCFCOMH that 
scans the FORMAT statement associated with 
the READ statement. The selection of the 
conversion routine depends on the conver- 
sion code of the list item being pro- 


cessed.) The selected conversion routine 
obtains data from an input buffer and 
converts the data to the form dictated by 


the conversion code. The converted data is 
then moved into the main storage address 
assigned to the list item. 


In general, after a conversion routine 
has processed a list item, the I/O list 
section determines whether or not that 
routine can be applied to the next list 
item or array element (if an array is being 
processed). The I/O list section examines 
a field count that indicates the number of 
times a particular conversion code is to be 
applied to successive list items or succes- 
Sive elements of an array. 
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“passes, as 


If the conversion code is to be repeate 
and if the previous list item was a vari. 
able, the I/O list section returns contro. 
to the load module. The load module agai 
branches to the I/O list section am 
an argument, the main storages 
address assigned to the next list item. 


The conversion routine that processec 
the previous list item is then given con- 


trol. This procedure is repeated until 
either the field count is exhausted or the 
input data for the READ statement is 
exhausted. 


If the conversion code is to be repeated 
and if an array is being processed, the I/0 
list section computes the main storage 
address of the next element in the array. 
The conversion routine that processed the 
previous element is then given control. 
This procedure is repeated until either all 


the array elements associated with a spe- 


the 
statement is 


cific conversion code are processed or 
input data for the READ 
exhausted. 


If the conversion code is not to be 
repeated, control is passed to the scan 
portion of IHCFCOMH to continue the scan of 
the FORMAT statement. If the scan portion 
determines that a group of conversion codes 
is to be repeated, the conversion routines 
corresponding to those codes are applied to 
the next portion of the input data. This 
procedure is repeated until either the 
group count is exhausted or the input data 
for the READ statement is exhausted. 


If a group of conversion codes is not to 
be repeated and if the end of the FORMAT 
statement is not encountered, the next 
format code is obtained. For a control 
type code, control is passed to the asso- 
ciated control routine to perform the indi- 
cated operation. For a conversion type 
code, control is returned to the load 
module if the previous list item was a 
variable. The load module again branches 
to the I/O list section and passes, as an 
argument, the main storage address assigned 
to the next list item. Control is then 
passed to the conversion routine associated 
with the new conversion code. The conver- 
sion routine then processes the data for 
this list item. If the data that was just 
converted was placed into an element of an 
array and if the entire array has not been 
filled, the I/O list section computes’ the 
main storage address of the next element in 
the array and passes control to the conver- 
sion routine associated with the new conv- — 
ersion code. The conversion routine then 
processes the data for this array element. 
Subsequent I/O list processing for a READ 
requiring a format proceeds at the point 
where the field count is examined. 


If the scan portion encounters the _ end 
of the FORMAT statement and if all the list 
items are satisfied, control returns to the 
next sequential instruction within the load 
module. This instruction (part of the 
calling sequence to IHCFCOMH) branches’ to 
the closing section. If all the list items 
are not Satisfied, control is passed to the 
input/output interface to read (via the 
READ macro instruction) the next input 
record. The conversion codes starting from 
the last left parenthesis are then repeated 
for the remaining list items. 


If the operation is a write requiring a 
format, Une T/O 115t section processing is 
Similar to that for a read requiring a 
format. The main difference is that the 
conversion routines obtain data from the 
main storage addresses assigned to the list 
items rather than from an input buffer. 
The converted data is then transferred to 
an output buffer. If all the list items 
have not been converted and transferred 
prior to the encounter of the end-of-the 


FORMAT statement, control is passed to the 
input/output interface. The input/output 
interface writes (via the WRITE macro 
instruction) the contents of the current 


output buffer onto the output data set. 
The conversion codes starting from the last 
left parenthesis are then repeated for the 
remaining list items. 


Read/write Not Requiring Format : In 
processing a list item for a read not 
requiring a format, the I/O list section 
must know the main storage address assigned 
to the list item and the size of the list 
item. Their values are passed, as argu- 
ments, via the calling sequence to the I/0 
list section. The list item may be either 
a variable or an array. In either case, 
the number of bytes specified by the size 
of the list item is moved from the input 
buffer to the main storage address assigned 
to the list item. The I/O list section 
then returns control to the load module. 
The load module again branches to the I/0 
list section and passes, as arguments, the 
main storage address assigned to the next 
list item and the size of the list item. 
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The I/O list section moves the number of 
bytes specified by the size of the list 
item into the main storage address assigned 
to this list item. This procedure is 
repeated either until all the list items 
are satisfied or until the input data is 
exhausted. Control is then returned to the 
load module. 


If the operation is a write not requir- 
ing a format, the I/O list section proces- 
Sing is similar to that described for a 
read not requiring a format. The main 
Gitference iS that the Gata is sontaineda 


from the main storage addresses assigned to 


the Jist items and is then moved to an 
output buffer. In addition, the segment 
length (i1.e., the number of bytes in the 


record segment) and a code indicating the 
position of this segment relative to other 
segments, if any, of the logical record are 
inserted in the segment control word. 


CLOSING SECTION: The compiler generates a 
calling sequence to one of two entry points 
in the closing section of IHCFCOMH each 
time it encounters the end of a READ or 
WRITE statement in the FORTRAN’ source 
module. The entry points correspond to the 
operations of read and write, requiring or 
not requiring a format. 


Read/Write Requiring a Format: If the 


operation is a read requiring a format, the 
closing section simply returns control to 
the load module to continue load module 
execution. If the operation is a write 
requiring a format, the closing section 
branches to the input/output interface. 
The input/output interface writes (via the 
WRITE macro instruction) the contents of 
the current input/output buffer (the final 
record) onto the output data set. The 
input/output interface then returns control 
to the closing section. The closing sec- 
tion, in turn, returns control to the load 
module to continue load module execution. 
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Read/Write Not Requiring a Format: If the 


Operation is a read not requiring a format, 
the closing section branches to the input/ 
output interface. The input/output inter- 
face reads (via the READ macro instruction) 
Successive records until the end of the 
logical record being read is encountered. 
(A FORTRAN logical record consists of all 


the records necessary to contain the I/0 
list items for a WRITE statement not 
requiring a format.) When the input/output 
interface recognizes the end-of-logical- 


record indicator, control is returned to 
the closing section. The closing section, 
in turn, returns control to the load module 
to continue load module execution. 


If the operation iS a write not requir- 
ing a format, the closing section inserts: 
(1) the segment length (i.e., the number of 
bytes in the record segment) and, a_ code 
indicating that this segmert is either the 
last or the only segment of the logical 
record into the segment control word of the 
input/output buffer to be written, and (2) 
an end-of-logical-record indicator into the 
last record of the input/output buffer 
being written. The closing section then 
branches to the input/output interface. 
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input/output interface writes (via the 
the contents of 


The 
WRITE macro instruction) 
this input/output buffer onto the output 
data set. The input/output interface then 
returns control to the closing section. 
The closing section, in turn, returns con- 
trol to the load module to continue load 
module execution. 


a RR eNO Oe SANE SANE ORY A RY ES RE RN RE TASES SEN” ‘enn rentgtie ene “Uefa A WAS *ARSDOAE EERSTE? ec 


Processing 


The following examples illustrate the 
opening section, I/O list section, and 
closing section processing performed by 
IHCFCOMH for sequential access READ and 
WRITE statements, requiring or not requir- 
ing a format. 


Note: IHCFCOMH processing for the direct 
access READ, FIND, and WRITE statements is 
essentially the same as that described for 
the sequential access READ and WRITE state- 
ments. The main difference is that for 
direct access statements, IHCFCOMH branches 
to the direct access input/output interface 
(IHCDIOSE) instead of to the sequential 
access input/output interface (IHCFIOSH). 


The processing 
the , following 
statement is 


READ REQUIRING A FORMAT: 
performed by IHCFCOMH for 


READ statement and FORMAT 
illustrated in Table 10. 


READ (1,2) A,B,C 

2 FORMAT (3F12.6) 
Table 10. IHCFCOMH Processing for a READ 

Requiring a Format 

aati atari ee a a ee a ae 
[Opening |1. Receives control from load| 
|Section | module and branches to | 
PECEICSH CO Butt telies:' Gsea; 
| | set for reading. | 
| | | 
| |2. Passes control to scan por-| 
| | tion of IHCFCOMH. | 
| | | 
| |3. Returns control to load | 
| | module. 
Ears ae Sher nee eet ee ere tee ee { 
}I/O List|]1. Receives control from _ 1load| 


[Section | module, converts input data| 
| | for A using IHCFCVTH, and| 
| | moves converted data to A. | 
| | | 
| }2. Returns control to load] 
| | module. | 
| | | 
| }3. Receives control from _ load| 
| | module, converts input data| 
| | for B, and moves’ converted| 
| | data to B. | 
| | | 
| |4. Returns control to load| 
| | module. | 
| | | 
| |5. Receives control from _ load| 
| | module, converts input data| 
| | for C, and moves’ converted| 
| | data to C. | 
| | | 
| j6. Returns control to load| 
| | module. | 
}~—--~-—}-——-—~---—-----__--------------- 

[Closing |[1. Receives control from load| 
|Section | module and closes out input/| 
| | output operation. |. 
| | | 
| }2. Returns control to load | 
| | module to continue load| 
| | module execution. | 
ere ere sh Sk Aha Se ea es ee J 
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WRITE REQUIRING A FORMAT: 
performed by 


WRITE statement 


The processing 
THCFCOMH for the following 
and FORMAT statement is 


illustrated in Table 11. 


WRITE (3,2) (D(I),I=1, 3) 
2 FORMAT (3F12. 6) 
Table 11. IHCFCOMH Processing for a WRITE 
Requiring a Format 
SSeS er ee ee ee 
[Opening |1. Receives control from load | 
{Section | module and branches to| 
i ‘ LECPIOSH . SC Sra tselsgo cata 
| | set for writing. | 
| | | 
| [2. Passes control to scan por-| 
| | tion of IHCFCOMH. | 
| | | 
| [3. Returns control to load| 
[ | module. 
|--------4~------------------------------- 
[I/O List|1. Receives control from load| 
|Section | module, converts D(1), and| 
| | moves D(1) to output buffer. | 
| | | 
| {2. Returns control to load| 
| | module. | 
| | | 
| | . | 
| }3. Receives control from _ 1load| 
| | module, converts D(2), and| 
| | moves D(2) to output buffer. | 
| | | 
| | | 
| 14. Returns control to load | 
| | module. | 
| | | 
| [5. Receives control from load| 
| | module, converts D(3), and| 
| | moves D(3) to output buffer. | 
| | | 
| [6. Returns control to load| 
| | module. i 
|--------4-------------------------------- 
J|Closing |1. Receives control from load| 
j}Section | module and branches to| 
| | IHCFIOSH to write contents| 
| | of output buffer. | 
[ | | 
| }2. Returns control to load | 
| | module to continue load| 
| | module execution. | 
eee ee eee Rp as hn pea wie a ha he hoe J 
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READ NOT REQUIRING A FORMAT: The proces- 
Sing performed by IHCFCOMH for the follow- 


ing READ statement is illustrated in Table 
126 


READ (5) X,Y,Z 


Table 12. IHCFCOMH Processing for a READ 


Not Requiring a Format 
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module and branches to] 
IHCFIOSH to initialize data] 
set for reading. | 


+ 
| 
| 
| 
| | 
| | | 
| |2. Returns control to load | 
| | module. | 
| | | 
4 


JI7O List|]1. Receives control from load| 
|Section | module and moves input data| 
| | to X. | 
| | | 
| }2. Returns control to load | 
| | module. | 
| | | 
| }3. Receives control from load| 
| | module and moves input data] 
| | ©O. Ye | 
| | | 
| {4. Returns control to load| 
| | module. | 
| ] . 
| [5. Receives control from load] 
| | module and moves input data] 
| | to Z. | 
| | | 
| }6. Returns control to load | 
| | module. | 
|--------4-------------------------------- 
[Closing |1. Receives control from load| 
| Section module and branches to | 


IHCFIOSH to read 
records until the 
logical-record indicator is| 
encountered. | 


| 
| 
| 
| 
| 
| 
| | 
| 
| 
| 
aE 


successive | 
end-of- | 


2. Returns control to load| 
module to continue load | 
module execution. | | 


Sqr —— a oe 
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WRITE NOT REQUIRING A FORMAT: The proces-— 
Sing performed by IHCFCOMH for the follow- 


ing WRITE statement is illustrated in Table 
13. 


WRITE (6) (W(J),J=1,10) 
Table 13. IHCFCOMH Processing for a WRITE 
Not Requiring a Format 
fo a De rn gee ee ee ae 1 
JOpening |{1. Receives control from load| 
|Section | module and branches to| 
| | IHCFIOSH to initialize data] 
| | for writing. | 
| | 
| |2. Returns control to load | 
| | module. | 
}-------- 4-------------------------------- 
|I/O List|1. Receives control from load| 
| Section module and moves W(1) tol 


output buffer. [ 


IHCFIOSH to write contents| 
of output buffer. | 
| 
Returns control to load| 
module to continue load| 
module execution. | 


NO 
8 


| 
| | 
| | | 
| [2. Returns control to load| 
| | module. | 
| | 
| ee Receives control from lioad| 
| | module and moves W(2) tof 
| | output buffer. [ 
| | | 
i |4. Returns control to load| 
| [ module. [ 
| | . | 
| | a | 
| | . | 
| | | 
| |5. Receives control from _ load| 
| | module and moves W(10) to| 
| | output buffer. | 
| | | 
| |6. Returns control to load | 
| | module. | 
|-------- 4-------------------------------- 
{Closing |1. Receives control from load| 
|Section | module and branches to| 

| 

| 

| 

| 

| 

| 

i 


| 
| 
| 
! 
| 
| 
| 
! 
| 
| 
| 
| 
| 
I 
! 
! 
1 
i 
| 
| 
| 
| 
| 
! 
{ 
! 
! 
! 
| 
| 
| 
i 
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Included in the calling sequence to 
IHCNAMEL2 generated by the compiler when it 
detects a READ or WRITE using a NAMELIST is 
a pointer to the object-time namelist dic- 
tionary associated with the READ or WRITE. 
This dictionary contains the names and 
addresses of the variables and arrays into 
which data is to be read or from which data 
is to be written. The dictionary aiso 
contains the information needed to select 
the conversion routine that is to convert 
the data to be placed into the variables or 
arrays, or to be taken from the variables 
and arrays. 


The data set contain- 
ing the data to be input to the variables 
Or arrays is initialized and successive 
records are read until the one containing 
the namelist name corresponding to that in 
the namelist dictionary is encountered. 
The next record is then read and processed. 


READ USING NAMELIST: 


The record is scanned and the first name 
is obtained. The name is compared to the 
variable and array names in the namelist 
dictionary. If the name does not agree, an 
error is signaled and load module execution 
is terminated. If the name is in the 
dictionary, processing of the matched vari- 
able or array is initiated. 


Each initialization constant assigned to 
the variable Or an array element is 
obtained from the input record. (One con- 
stant is required for a variable. A number 
of constants equal to the number of ele- 
ments in the array is required for an 
array. A constant may be repeated for 
successive array elements if appropriately 
specified in the input record.) The appro- 
priate conversion routine is selected 
according to the type of the variable or 
array element. Control is then passed to 
the conversion routine to convert the con- 
stant and to enter it into its associated 
variable or array element. 


The process is repeated for the second 
and subsequent names in the input record. 
When an entire record has been processed, 
the next record is read and processed. 


Processing is terminated upon recogni- 
tion of the SEND record. Control is then 
returned to the calling routine within the 
load module. | 
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1THCNAMEL is included in the load module 

only if reads and writes using NAMELISTs 
appear in the compiled program. Calls are 
made directly to FRDNL# (for READ) or to 
FWRNL# (for WRITE). 
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WRITE USING NAMELIST: The data set upon 
which the variables and arrays are to be 
written is initialized. The namelist name 
is obtained from the namelist dictionary 
associated with the WRITE, moved to an 
input/output buffer, and written. The pro- 
cessing of the variables and arrays is then 
initiated. 


The first variable or array name in the 
Gictionary is moved to an input/output 
buffer followed by an equal sign. The 
appropriate conversion routine is selected 
according to the type of the variable or 
array elements. Control is then passed to 
the conversion routine to convert tne con- 


tents of the variable or the first array 
element and to enter it into the input/ 
output buffer. A comma is inserted into 


the buffer following the converted quanti- 
ty. If an array 1S being processed, the 
contents of its second and subsequent ele- 
ments are converted, using the same conver- 
sion routine, and placed into the input/ 
output buffer, separated by commas. When 
all of the array elements have been  pro- 
cessed or if the item processed was a 
variable, the next name in the dictionary 
is obtained. The process is repeated for 
this and subsequent variable or array 
names. 


If, at any time, the record length is 
exhausted, the current record is written 
and processing resumes in the normal 
fashion. 


When the last variable or array has been 
processed, the contents of the current 
record are written, the characters &END are 
moved to the buffer and written, and con- 
trol is returned to the calling routine 
within the load module. 


Input/Output Device Manipulation Routines 


The input/output device manipulation 
routines of IHCFCOMH implement the 
BACKSPACE, REWIND, and END FILE source 
statements. These routines receive control 
from within the load module via calling 
sequences that are generated by the compil- 
er when these statements are encountered. 


Note: Backspace, rewind, and end file 
requests are honored only for sequential 
data sets, and are ignored for direct 
access data sets. However, these state- 
ments are device independent and can be 
used for sequential data sets on either 


sequential or direct access devices. 
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The implementation of REWIND, BACKSPACE, 
and END FILE statements is straightforward. 
The input/output device manipulation rou- 
tines submit the appropriate control re- 
quest to IHCFIOSH, the input/output inter- 
face module. After the request is 
executed, control is returned to the cal- 
ling routine within the load module. 


Write-to-Operator Routines 


The write-to-operator routines of 
IHCFCOMH implement the STOP and PAUSE 
source statements. These routines receive 
control from within the load module via 
calling sequences generated by the compiler 


upon recognition of the STOP and PAUSE 
statements. 

STOP: A write-to-operator (WTO) macro 
instruction is issued to display the mes- 


associated with the STOP statement on 
Load module execution is then 
pro- 


sage 
the console. 
terminated by passing control to the 
gram termination routine of IHCFCOMH. 


PAUSE: A write-to-operator-with-reply 
(WIOR) macro instruction is issued to dis- 
play the message associated with the PAUSE 
statement on the console and to enable the 


operator's reply to be transmitted. A WAIT 


macro instruction is then issued to deter- 
mine when the operator's reply has been 
transmitted. After the reply has_ been 
received, control is returned to the 


calling routine within the load module. 


The utility routines of IHCFCOMH perform 
the following functions: 


e Process 
ruptions 


arithmetic-type program inter- 


e Process specification interruptions 


e Terminate load module execution 
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PROCESSING OF ERROR MESSAGES: The error 
message processing routine (IHCERRM) 
receives control from various FORTRAN 
library subprograms when they detect ter- 
minal object-time errors. 


Error message processing consists of 
initializing the data set upon which the 
message is to be written and writing the 
message anda diagnostic traceback. After 
the traceback is completed for error mes- 
sage IHC218I, control is passed to the 
statement designated in the ERR parameter 
of a FORTRAN READ statement, if that para- 
meter was specified. In all other cases, 
control is passed to the termination rou- 
tine, a routine that will terminate tne 
job. Program interrupts will cause a mes- 
sage to be printed, but execution will 
continue. When the extended error message 
facility has been specified, execution may 
continue after the detection of an error. 


PROCESSING _OF ARITHMETIC INTERRUPTIONS: 
THCFCOMH 


The interrupt routine (IBFINT) of 








initially receives control from within the 
load module via a compiler-generated 
calling sequence. The call is placed at 


the start of the executabie coding of the 
load module so that the interrupt routine 
can set up the program interrupt mask. 
Subsequent entries into the interrupt rou- 
tine are made through specification or 
arithmetic-type interruptions. 


The interrupt routine sets up the pro- 
gram interrupt mask by means of a SPIE 
macro instruction. This instruction speci- 
fies the type of interruptions that are to 
cause control to be passed to the interrupt 
routine, and the location within the rou- 
tine to which control is to be passed if 
the specified interruptions occur. After 
the mask has been set, control is returned 
to the calling routine within the load 
module. 


In processing an interruption, the first 
step taken by the interrupt routine is to 
determine its type. 


A, Arithmetic Interruptions: If exponen- 
overflow or underflow has occurred, 


the appropriate indicators, which are 


referred to by OVERFL (a library subpro- 
gram), are set. If any type of divide 
check caused the interruption, the indica- 
tor referred to by DVCHK (also a library 
subprogram) is set. 


Regardless of the type of interruption 
that caused control to be given to the 
interrupt routine, the old program PSW is 


written out for diagnostic purposes. 


After the interruption has been pro- 
cessed, control is returned to the inter- 
rupted routine at the point of 
‘interruption. 

B. Specification Interruptions: If an 
interrupt is caused by a specification 


exception and the boundary alignment option 
was specified by the user during system 
generation, the boundary adjustment routine 
(IHCADJST) is loaded from the link library 
(SYS1.LINKLIB). 


This routine determines whether or not 
the interrupt was caused by an instruction 
that referred to improperly aligned data. 
If not, the routine causes abnormal ter- 
mination of the load module. If so, the 
routine: 


1. Causes message IHC210I, which contains 
the main program, PSW, to be 
generated. 


2e Moves the misaligned data to a prop- 
erly aligned boundary. 
that 


3. Re-executes the instruction 


refers to the data. 


If no 
instruction is 


interruption occurs when the 
re-executed, the data is 
moved back to its original location. If 
there is a new condition code, it is placed 
in the PSW of the Program Interruption 
Element (PIE). The boundary adjustment 
routine then returns control to the control 
program, which loads the PSW of the PIE to 
effect a return to the interrupted program. 


If a divide check, exponential overflow 
Or underflow interruption occurs when the 
instruction is re-executed, the interrup- 


tion will be handled as described under 
"Arithmetic Interruptions." 


If a data, protection, or addressing 
interruption occurs when the instruction is 
re-executed, the boundary adjustment rou- 
tine generates the message IHC210I. The 
PSW information in this message gives the 
cause of the interruption and the location 
of the instruction in the main program that 
caused the interruption. Then, since pro- 
cessing cannot continue, the routine issues 
a SPIE macro instruction to remove specifi- 
cation interrupts from those interruptions 
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handled by this routine and re-executes the 
instruction. This causes abnormal termina- 
tion of the load module because of the 
Original specification error. 


PROGRAM TERMINATION: The load module ter- 
mination routine (IBEXIT) of  IHCFCOMH 
receives control from various library sub- 


programs (e.g., DUMP and EXIT) and from 
Other IHCFCOMH routines (e.g., the routine 
that processes the STOP statement). 


This routine terminates execution of the 
load module by the following means: 


®e Cailing the appropriate input/output 
interface(s) to check (via the CHECK 
macro instruction) outstanding write 
requests. 


e Issuing a SPIE macro instruction with 
no parameters indicating that the 
FORTRAN object module no longer desires 
to give special treatment to program 
interruptions and does not want mask- 
able interruptions to occur. 

* Returning to the operating 

supervisor. 


system 


CONVERSION ROUTINES (IHCFCVTH) 


The conversion routines either convert 
data to be placed into I/O list items or 


convert data to be taken from I/O list 
items. 

These routines receive control either 
from the I/0 list section of IHCFCOMH 
during its processing of list items for 
READ/WRITE statements requiring a format, 


from the routines that process a READ/WRITE 
statements using a NAMELIST, or from the 
DUMP and PDUMP subprograms. 


Each conversion routine is associated 
with a conversion type format code and/or a 
type. If an I/O list item for a. READ/WRITE 
statement requiring a format is being pro- 
cessed, the conversion routine is selected 
according to the conversion type format 


code which is to be applied to the list 
item If a list item for a READ/WRITE 
using a NAMELIST is being processed, the 


conversion routine is selected according to 
the type of the list item. 

If a READ statement is being imple- 
mented, the conversion routine obtains data 
from the input/output buffer, converts it 
according to its associated conversion type 
format code or type, and enters the con- 
verted data into the list item. The pro- 
cess is reversed if a WRITE statement is 
being implemented. 
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For the DUMP and PDUMP subprograms, the 
format code parameter passed to them deter- 
mines the selection of the output conver- 
Sion routine to be used to place the output 
in the desired form. 


See Table 17, at the end of this appen- 
dix, for a complete directory of the sub- 
routines used by IHCFCVTH. 


ITHCFIOSH 


ITHCFIOSH, the object-time FORTRAN 
sequential access input/output data manage- 
ment interface, receives input/output 
requests from IHCFCOMH and submits them to 
the appropriate BSAM (basic sequential 
access method) routines and/or open and 
close routines for execution. 


When the extended error message facility 


Chart G3 illustrates the overall logic 
and the relationship among the routines of 
IHCFIOSH. Table 18, the IHCFIOSH routine 
directory, lists the routines used in 
IHCFIOSH and their functions. | 


BLOCKS AND TABLE USED 


IHCFIOSH uses the following blocks and 
table during its processing of sequential 
access input/output requests: (1) unit 
blocks, and (2) unit assignment table. MThe 
unit blocks are used to indicate input/ 
output activity for each unit number (i.e., 
data set reference number) and to indicate 
the type of operation requested. In addi- 
tion, the unit blocks contain skeletons of 
the data event control blocks (DECB) and 


has been specified at system generation the data control blocks (DCB) that are 
time, IHCFIOSH will include programming to required for input/output operations. The 
allow execution to continue after an error unit assignment table is used as an index 
occurs. to the unit blocks. 

a ae ge vn re ar eC ee Pn re ca el er T 

| ABYTE BBYTE | CBYTE DBYTE | 4 bytes | 

}----—------- 4_-~--------- 4------------4------------ }------------ : 

| Address of Buffer 1 | 4 bytes | 
}-------------~---------------~----------------------- 4------------ { 

| Address of Buffer 2 | 4 bytes | 

} ---~----------~-~--------~------------------------- }------------ { : 

| Current buffer pointer* | 4 bytes | Housekeeping 
besusecaaae se aces SS oeeecsetesae BN ee ee eo ee es Leapeeeees ees 4 Section 

] Record offset (RECPTR) * i 4 bytes | 
}---~-~----------—---~------------------------------ }------------ 4 

| Address of last DECB | 4 bytes | 
}--------------------------------------------------- +~----------- { 

i Mask for alternating buffers | 4 bytes | 

}----— ------ ~--~----------------------------------- }------------ 4 

] DECB1 skeleton section | 20 bytes | 
}--------------------------------------7------------ 4------------ { 

] Not used | LIVECNT1 | 4 bytes j 
}----------------—--------------------- 4------------ }------------ j 

| DECB2 skeleton section | 20 bytes | 

a aa ca a ; isienaicier aie ae aaa , aao nantes waeenia cia 7 iaialeinesl Faecal 4 

} Work space ] Not used | LIVECNT2 | 4 bytes | 
}~---—--~---~~----~-------1------------ 1--—-----~——~ }------------ { 

] DCB skeleton section | 88 bytes | 
p---~-~------~~---~--~-~-~~-------~~~-+---~--------- 4 


] *Used only for variable length and/or blocked records. | 


e Figure 17. 
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Unit Blocks 


ARE RECA RS AT ERATE NO EY SG AES 


The first reference to each unit number 
(data set reference number) by an input/ 
output operation within the FORTRAN load 
module causes IHCFIOSH to construct a unit 
block for each unit number. The main 
Storage for the unit blocks is obtained by 
IHCFIOSH via the GETMAIN macro instruction. 
The addresses of the unit blocks are placed 


in the unit assignment table as the unit 
blocks are constructed. All subsequent 
references to the unit numbers are _ then 


made through the unit assignment table. 


Figure 17 illustrates the format of a unit 
block for a unit that is defined as a 


sequential access data set. 


Each unit block is divided into four 


sections: a housekeeping section, two DECB 
Skeleton sections, and a DCB- skeleton 
section. 
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HOUSEKEEPING SECTION: The housekeeping 
section iS maintained by IHCFIOSH. The 
information contained in it is used to 
indicate data set type, to keep track of 
input/output buffer locations, and to keep 
track of addresses internal to the input/ 
output buffers to enable the processing of 
blocked records. The fields of this sec- 
tion are: 


ABYTE 


This field, containing the data set 


type passed to IHCFIOSH by IHCFCOMH, 

can be set to one of the following: 

FO -- Input data set requiring a 
format 

FF -- Output data set requiring a 
format 

00 -- Input data set not requiring a 
format 

OF -- Output data set not requiring a 
format 
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RBYTE 
This field contains bits that are set 
and examined by IHCFIOSH during its 


processing. The bits and their mean- 
ings, when on, are as follows: 
0 -- Exit to IHCFCOMH on input/output 
error 
1 -- Input/output error occurred 
2 -- Current buffer indicator 
3 -- Not used 
4 -~ End-of-current buffer indicator 
5 -~- Blocked data set indicator 
6 ~- Variable record format switch 
7 -- Not used 
CBYTE 


This field also contains bits that are 
set and examined by IHCFIOSH. The 
bits and their meanings, when on, are 
as follows: 


0 -- Data control block opened 

1 -- Data control block not TCLOSEd 

2 -- Data control block not previously 
opened 

3 -- Buffer pool attached 

4 -- Data set not previously rewound 

5 -- Not used 

6 -- esicavenseien occurring -- 


reissue READ 
7 -- Data set is DUMMY 
DBYTE 


This field contains bits that are set 
and examined by IHCFIOSH during the 


5 -- Not used 
6 -- END FILE followed by BACKSPACE 
7 -- Not used 


Addresses of Buffer 1 and of Buffer 2 
These fields contain pointers to the 
two input/output buffers obtained dur- 
ing the opening of the data control 
block for this data set. 


Current Buffer Pointer 


This field contains a pointer to the 
input/output putter currentiy being 
used. 


Record Offset (RECPTR) 
This field contains a pointer to the 
current logical record within the cur- 
rent buffer. 


Address of Last DECB 
This field contains a pointer to 
DECB last used. 


the 


Mask for Alternating Buffers 
This field contains 
enable an Exclusive Or 
alternate 


the bits which 
operation to 
the current buffer pointer. 


DECB SKELETON SECTIONS (DECB1 AND _DECB2): 
The DECB (data event control block) skele- 
ton sections are blocks of main storage 
within the unit block. They have the same 
format as the DECB constructed by the 
control program for an L format of an 
S-type READ or WRITE macro instruction (see 
the publication IBM System/360 Operating 
System: Supervisor and Data Management 
Macro-Instructions, Form C28-6647). The 
various fields of the DECB skeleton are 
filled in by IHCFIOSH; the completed block 
is referred to when IHCFIOSH issues a 
read/write request to BSAM. The read/write 
field is filled in at open time. For each 
input/output operation, IHCFIOSH supplies 
IHCFCOMH with: (1) an indication of the 
type of operation (read or write), and (2) 
the length of and a pointer to the input/ 
output buffer to be used for the operation. 


processing of an input/output opera- 
tion involving a backspace request. LIVECNT1 and LIVECNT2 
The bits and their meanings, when on, These fields indicate whether any 
are as follows: input/output operation performed for 
the data set is unchecked. (A value 
0 -- A physical BACKSPACE has occurred of 1 indicates that a previous read or 
write has not been checked; a value of 
1 -- Previous operation was BACKSPACE 0 indicates that all previous read and 
write operations for the data set have 
2 -- Not used been checked. ) 
3 -- End of file routine should retain Work Space 
buffers This field is used to align the logi- 
cal record length of a variable record 
4 -- Not used segment on a fullword boundary. 
Appendix F: Object-Time Library Subprograms 225 


Form Y28-6638-1 
Page Revised 11/15/68 by TNL Y28-6826 


DCB__SKELETON SECTION: The DCB (data con- 
trol block) skeleton section is a block of 
main storage within the unit block. It is 
of the same form as the DCB constructed by 
the control program for a DCB macro 


instruction under BSAM (see the Supervisor 


lication, Form C28-6647). The various 
fields of the DCB skeleton are filled in by 
the control program when the DCB for the 
data set is opened (see the publication IBM 
System/360 Operating System: Concepts and 
Facilities). Standard default values may 
also be inserted in the DCB skeleton by 
IHCFIOSH. See “Unit Assignment Table" for 
@ G@isScussion of when derauit vaiues are 
inserted into the DCB skeleton. 


Unit Assignment Table 


(SYS1.FORTLIB). Its size depends on the 
maximum number of units that can _ be 
referred to during execution of any FORTRAN 
load module. This number (< 99) iS speci- 
fied by the user during the system genera- 
tion process via the FORTLIB macro 
instruction. 


The unit assignment table is designed to 
be used by both IHCFIOSH and IHCDIOSE. It 
is included once, by the linkage editor, in 
the FORTRAN load module as a result of an 
external reference to it within IHCFIOSH 


we oe 


ana/vor LHCDIOSE. 


The unit assignment table contains a 16- 
byte entry for each of the unit numbers 
that can be referred to by the user. These 
entries differ in format depending on 
whether the unit has been defined as a 


The unit assignment table (IHCUATBL) sequential access or a direct access data 
resides on the FORTRAN system library set. 
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Figure 18 illustrates the format of the 
unit assignment table. 


Fee PP eer eee eee ge ee ra aae Sacks 
junit number (DSRN) ee | ] 
Jbeing used for current] ] | 
| operation | n x 16 ]}4 bytes] 
posse er= aie niases anRnenaaas Aeraasigi anes ieee | 
| ERRMSG | READ Jj PRINT | PUNCH | { 
{| DSRN1 | DSRN2 |] DSRNS | DSRNY {4 bytes] 
ee ees dob dL fl 
}]UBLOCK0O1 field }4 bytes| 
Sas i ae se eet ns 1-5--=-- 
}DSRNO1 default values |8 bytes] 
}-----~--------------------------- ------- 
|LISTO1 field 14 bytes] 
}------~--~--~-------------------- }------- 4 
| | 
I . fo 06 
| . [| os | 
. lf +e | 
| | 
}-~--------------—---------------- }------- { 
]UBLOCKn field® }4 bytes] 
sa ac Eis a as se ee f= 
}|DSRNn default values7 {8 bytes] 
Be Fg Nee ol sane eat PINs FO oe Ree nen eee 
jLISTn field 14 bytes] 
eee ee rete be te ee L-._—f 
1Unit number (DSRN) of error output] 

device. | 


]2Unit number (DSRN) of input device for a| 
read of the form: READ b,list. | 


3Unit number (DSRN) of output device for] 
a print operation of the form: PRINT] 
b, list. i 
“Unit number (DSRN) of output device for| 
a punch operation of the form: PUNCH| 
b, list. 
5n is the maximum number of units’ that| 


can be referred to by the FORTRAN load| 
module. The size of the unit table is] 
equal to (8 + n x 16) bytes. | 
6The UBLOCKn field contains either af 
pointer to the unit block constructed] 
for unit number n if the unit is being| 
used at object time, or a value of 1 if] 
the unit is not being used. | 
|}7The default values for the various unit] 
] numbers are specified by the user and| 
] are assembled into the unit assignment] 
|} table entries during the system genera-| 
|} tion process. The default values are] 
] used only by IHCFIOSH; they are ignored] 
1 by IHCDIOSE. | 
| 
| 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


STF the unit is defined as a direct 
access data set, the LISTn field con-|] 
tains a pointer to the parameter list] 
that defines the direct access data set. | 
Otherwise, this field contains a value] 
of i. : | 


Figure 18. Unit Assignment Table Format 
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Because IHCFIOSH deals only with sequen- 
tial access data sets, the remainder of the 
discussion on the unit assignment table is 
devoted to unit assignment table entries 
for sequential access data _ sets. If 
IHCFIOSH encounters a reference to a direct 
access data set, it is considered as an 
error, and control is passed to the load 
module termination routine of IHCFCOMH. 


The pointers to the unit blocks created 
for sequential data sets are inserted into 
the unit assignment table entries by 


THCFIOS when the unit blocks are 
constructed. 
Note: Default values are standard values 





that IHCFIOSH inserts into the appropriate 
fields (e.g., BUFNO) of the DCB’ skeleton 
section of the unit blocks if the user does 
either of the following: 


cae Causes the load module to be executed 
via a cataloged procedure, or 


2.2 Fails, in stating his own procedure 
for execution, to include in the DCB 
parameter of his DD statements those 
Subparameters (e.g., BUFNO) that he is 
permitted to include (see the publica- 
tion IBM System/360 _Operating System: 


FORTRAN IV _(G) Programmer's Guide). 


Control is returned to IHCFIOSH during 
data control block opening so that it can 
determine whether or not the user has 
included the subparameters in the DCB para- 


meter of his DD statements. ITHCFIOSH 
examines the DCB skeleton fields corres- 
ponding to user-permitted subparameters 


and, upon encountering a null field (indi- 
cating that the user has not specified the 
subparameter), inserts the standard value 
(i.e., the default value) for the subparam- 
eter into the DCB skeleton. (If the user 
has included these subparameters in his ODD 
statement, the control program routine per- 
forming data control block opening inserts 
the subparameter values, before transfer- 
ring control to IHCFIOSH, into the DCB 
skeleton fields reserved for those values. ) 


BUFFERING 


All input/output operations are double 
buffered. (The double buffering scheme can 
be overridden by the user if he specifies 
in a DD statement: BUFNO=1.) This implies 
that during data control block opening, two 
buffers will be obtained. The addresses of 
these buffers are given alternately to 
IHCFCOMH as pointers to: 


e Buffers to be filled (in the case of 


output) 


@ Information that has been read in and 
1s to be processed (in the case of 
input) 


COMMUNICATION WITH THE CONTROL PROGRAM 


In requesting services of the control 
program, IHCFIOSH uses L and E forms of 
S-type macro instructions (see the publica- 
tion IBM System/360 Operatin System: 


Supervisor and Data Management  Macro- 


Instructions, Form C28-6647). 


OPERATION 


_ The processing of IHCFIOSH is divided 
into five sections: initialization, read, 
write, device manipulation, and closing. 
When called by IHCFCOMH, a section of 
IHCFIOSH performs its function and then 
returns control to IHCFCOMH. 


Initialization 


mete re ere ere AERO MEY MOOR REE OEY WEY EE 


The initialization action taken by 
IHCFIOSH depends upon the nature of the 
previous input/output operation requested 
for the data set. The previous operation 
possibilities are: 


e No previous operation 

e Previous operation read or write 

e Previous operation backspace 

operation write end-of-data 


e Previous 
set 


e Previous operation rewind 


NO PREVIOUS OPERATION: If no previous 
operation has been performed on the unit 
specified in the input/output request, the 
initialization section generates a unit 
block for the unit number. The data set to 
be created is then opened (if the current 
operation is not rewind or backspace) via 
the OPEN macro instruction. The addresses 
of the input/output buffers, which are 
obtained during the opening process’ and 
placed into the DCB skeleton, are placed 
into the appropriate fields of the house- 
keeping section of the unit block. The 
DECB skeleton is then set to reflect the 
nature of the operation (read or write), 
the format of the records to be read or 
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of the input/ 
operation. 


written, and the address 
output buffer to be used in the 


If the requested operation is a write, a 
pointer to the buffer position, at which 
ITHCFCOMH is to place the record to be 
written, and the block size or logical 
record length (to accommodate blocked log- 
ical records) are placed into registers, 
and control is returned to IHCFCOMH. 


If the requested operation is a read, a 
record is read, via a READ macro instruc- 
tion, into the input/output buffer, and the 
operation is checked for completion via the 
CHECK macro instruction. A pointer to the 
location otf the record witnin the bufier, 
along with the number of bytes read or the 


logical record length, are placed into 
registers, and control is returned to 
IHCFCOMH. 

Note: During the opening process, control 





is returned to the IHCDCBXE routine in 
IHCFIOSH. This routine determines if the 
Gata set being opened is a 1403 printer. 
If it is, the RECFM field in the DCB for 
the data set is altered to machine carriage 
control (FM). In addition, a pointer to 
the unit block generated for the printer, 
and the physical address of the printer are 
placed into a control block area (CTLBLK) 
for the printer within IHCFIOSH. CTLBLK 
also contains a third print buffer. This 
buffer is used in conjunction with the two 
buffers already obtained for the printer. 


Figure 19 illustrates the format of 
CTLBLK. 
ee ee ee ee ee 
CTLBLK|a(BUF 3) | 4 bytes | 
}------------------------- 4--------- 
ja(unit block) | 4 bytes] 
SesSeH eS Gas 
Ja(printer) |record length| 4 bytes| 
Sacer ee epee ba Aae ae oe eee 
}+ FTOO | 4 bytes| 
eter he ee ee ee 4-----~--_ 
[2 FOO1 | 4 bytes| 
hoa ne eee ee eee Gaerne nia ee 
BUF3 [third print buffer }144 bytes] 
eaten ee eg a Heer eee tone 


|2Used in the task input/output| 
| table (TIOT) search. | 


Figure 19. CTLBLK Format 


PREVIOUS OPERATION READ OR WRITE: If the 
previous operation performed on the unit 
specified in the present input/output requ- 
est was either a read or write, the initia- 
lization section determines the nature of 
the present input/output request. If it is 
a write, a pointer to the buffer position, 
at which IHCFCOMH is to place the record to 
be written, and the block size or logical 
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record length are placed into registers, 
and control is returned to IHCFCOMH. 


If the operation to be performed is a 
read, a pointer to the buffer location of 


the record to be processed, along with the 


number of bytes read or logical record 
length, are placed into registers, and 
control is returned to IHCFCOMH. 


IOUS O BA If the pre- 
vious operation performed on the unit spe- 
cified in the present input/output request 
was a backspace, the initialization section 
determines the type of the present opera- 
tion (read or write) and modifies the DECB 
skeleton, if necessary, to reflect the 
operation type. (If the operation type is 
the same as that of the operation that 
preceded the backspace request, the DECB 
skeleton need not be modified.) Subsequent 
processing steps are the same as_ those 
described for “No Previous Operation," 
Starting at the point after the DECB skele- 
ton is set to reflect operation type. 


PREVIOUS OPERATION WRITE END-OF-DATA SET: 
If the previous operation performed on the 
unit specified in the present input/output 
request was a write end-of-data set, a new 
data set using the same unit number is’ to 
be created. In this case, the initializa- 
tion section closes the data set. Then, in 
order to establish a correspondence between 
the new data set and the DD statement 
describing that data set, IHCFIOSH incre- 
ments the unit sequence number of the 
ddname. (The ddname is’ placed into the 
appropriate field of the DCB skeleton prior 
to the opening of the initial data set 
associated with the unit number.) During 
the opening of the data set, the ddname 
will be used to merge with the appropriate 
DD statement. The data set is then opened. 
Subsequent processing steps are the same as 
those described for "No Previous Opera- 
tion," starting at the point after the data 
set is opened. 





PREVIOUS OPERATION REWIND: If the previous 
operation performed on the unit specified 
in the present input/output request was a 
rewind, the ddname is initialized (set to 
FTxxF001) in order to establish a corres- 
pondence between the initial data set asso- 


ciated with the unit number and the DD 
Statement describing that data set. The 
data set is then opened. Subsequent pro- 
cessing steps are the same as those de- 


Scribed for "No Previous Operation," start- 
ing at the point after the data set is 
opened. 
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Read 


The read section of IHCFIOSH performs 
two functions: (1) reads physical records 
into the buffers obtained during data set 
opening, and (2) makes the contents of 
these buffers available to IHCFCOMH for 
processing. 

If the records being processed are 
blocked, the read section does not read a 
physical record each time it is given 
control. IHCFIOSH only reads a physical 
record when all of the logical records of 
the blocked record under consideration have 
been processed by IHCFCOMH. However, if 
the records being processed are* either 
unblocked or of U-format, the read section 
of IHCFIOSH issues a READ macro instruction 
each time it receives control. 


of records by this section 
is overlapped. That is, while the contents 
of one buffer are being processed, a _ phys- 
ical record is being read into the other 
buffer. When the contents of one buffer 
have been processed, the read into the 
other buffer is checked for completion. 
Upon completion of the read operation, 
processing of that buffer's contents is 
initiated. In addition, a read into the 
second buffer is initiated. 


The reading 


Each time the read section is given 
control it makes the next record available 
to IHCFCOMH for processing. (In the case 
of blocked records, the record presented to 


IHCFCOMH is logical.) The read section of 
IHCFIOSH places: (1) a pointer to the 
record's location in the current input/ 


output buffer, and (2) the number of bytes 
read or logical record length into regis- 
ters, and then returns control to IHCFCOMH. 


Write 


The write section of IHCFIOSH performs 
two functions: (1) writes physical reco- 
rds, and (2) provides IHCFCOMH with buffer 


space in which to place the records to be 
written. 
If the records being written are 


blocked, the write section does not write a 
physical record each time it is given 
control. IHCFIOSH only writes a physical 
record when all of the logical records that 
comprise the blocked record under consi- 
deration have been placed into the input/ 
output buffer by IHCFCOMH. However, if the 


records being written are either unblocked 
or of U-format, the write section of 
IHCFIOSH issues a WRITE macro instruction 


each time it receives control. 
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The writing of records by this section 
is overlapped. That is, while INCFCOMH is 
filling one buffer, the contents of the 
Other buffer are being written. When an 
entire buffer has been filled, the write 
from the other buffer is checked for com- 
pletion. Upon completion of the write 
Operation, IHCFCOMH starts placing records 
into that buffer. In addition, a write 
from the second buffer is initiated. 


Each time control is transferred to the 
write section, it provides IHCFCOMH with 


buffer space in which to place the record 
to be written. IHCFIOSH places: (1) a 
pointer to the location within the current 


buffer at which IHCFCOMH is to place the 
record, and (2) the block size or logical 
record length into registers, and then 
returns control to ITHCFCOMH. 


Note: The write section checks to see if 
the data set being written on is a 1403 
printer. If it is, the carriage control 
Character is changed to machine code, and 
three buffers, instead of the normal two, 
are used when writing on the printer. 


ERROR__PROCESSING__ WITHOUT _EXTENDED__ERROR 
MESSAGE _FACILITY An error number is put 
into a parameter list and register 13 is 
set up to ovoint to a save area in IBCOM. 
The user's save area is linked to this save 
area. The error monitor is then called to 
print a message on the object error unit. 


ERROR PROCESSING WITH EXTENDED ERROR MES- 


SE EET Menge ye OUD MEMES Clete ease SEND cece TRRAD SERFS “POR SRE aE ASI SERED ESD SNEED GEN EEE SR UTD ELAN GS OGRE SUE CEES ELD REN EA HEED Cinta WENGE GENS CORES EY URC EEG CURES oS SEE 


SAGE _FACILITY: A common subroutine is 


called to prepare for a call to the error 
monitor. The common subroutine: 


1. Converts the data set reference and 
puts it into the last four bytes of 
the message. 


Ze Links save areas as described when no 
error message facility has been 
specified. 


3. Calls the error monitor (IHCERRM)-. 


The error monitor may return to continue 
execution. 


For error conditions 214 and 
219, 220, and 231 if user corrective action 
is taken, and for error 214 if the opera- 
tion was input, the remainder of the I/0 
list is ignored upon return from the common 
subroutine. For error condition 214 under 
any other condition, the record format is 
changed to V and execution continues. 


217, 218, 


For any error condition except 214 and 
217, upon return from the error monitor, 
IHCFIOSH returns an indication that an 


error has occurred to the caller. 
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In the case of an end-of-data_ set, 
IHCFIOSH simply passes control to the end- 
of-data set routine of IHCFCOMH. 


Chart G4 illustrates the execution-time 
input/output recovery procedure for any 
input/output errors detected by the input/ 
output supervisor. 


Device Manipulation 





section of 
rewind, and 


The device manipulation 
IHCFIOSH processes backspace, 
write end-of-data set requests. 


IHCFIOSH processes’ the back- 
space request by issuing the appropriate 
number of BSP (physical backspace) macro 
instructions (0, 1, 2, or 3) and adjusting 
the RECPTR in the unit block to point to 


the preceding logical record. The number 
of BSP's issued will depend on the number 
of buffers used, the previous input/output 


operation, and the position of RECPTR prior 
to the backspace. 


For unformatted records, the processing 
of a backspace request also includes 
examining the SDW (segment descriptor word) 
of each record segment in order to locate 
the first segment of a spanned record 
(i.e., a logical record which causes more 
than one physical input/output operation to 
be performed). Control is then returned to 
THCFCOMH. 


REWIND: IHCFIOSH processes’ the rewind 
request by issuing a CLOSE macro instruc- 
tion, using the REREAD option. This option 
has the same effect as a rewind. Control 
is then returned to IHCFCOMH,. 


WRITE  END-OF-DATA SET: IHCFIOSH processes 


this request by issuing a CLOSE macro 
instruction, type=T. It then frees the 
input/output buffers by issuing a FREEPOOL 


macro instruction, and returns control to 


ITHCFCOMH. 


Closing 


The closing section of IHCFIOSH examines 
the entries in the unit assignment table to 
determine which data control blocks are 
open. In addition, this section ensures 
that all write operations for a data set 
are completed before the data control block 
for that data set is closed. This is done 
by issuing a CHECK macro instruction for 
all double-buffered output data sets. Con- 
trol is then returned to IHCFCOMH. 
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Note: If a 1403 printer is being used, a 
write from the last print buffer is issued 
to ensure that the last line of output is 
written. 


ITHCDIOSE 


IHCDIOSE, the object-time FORTRAN direct 
access input/output data management inter- 
face, receives input/output requests from 
IHCFCOMH and submits them to the appropri- 
ate BDAM (basic direct access method) rou- 
tines and/or open and close routines for 
execution. (For the first input/output 
request involving a nonexistent data set, 
the appropriate BSAM routines must be 
executed prior to linking to the BDAM 
routines. The BSAM routines format and 
create a new data set consisting of blank 
records.) 


IHCDIOSE receives control from: (1) the 
initialization section of the FORTRAN load 
module if a DEFINE FILE statement is 
included in the source module, and (2) 
IHCFCOMH whenever a READ, WRITE, or FIND 
direct access statement is encountered in 
the load module. 


Charts G5 and G6 illustrate the overall 
logic and the relationship among the rou- 
tines of IHCDIOSE. Table 19, the IHCDIOSE 
routine directory, lists the routines used 
in IHCDIOSE and their functions. 


BLOCKS AND TABLE USED 


IHCDIOSE uses the following blocks’ and 
table during its processing of direct 
access input/output requests: (1) unit 
blocks, and (2) unit assignment table. The 
unit blocks are used to indicate input/ 
output activity for each unit number (i.e., 
data set reference number) and to indicate 
the type of operation requested. In addi- 
tion, each unit block contains skeletons of 
the data event control blocks (DECB) and 
the data control block (DCB) that are 
required for input/output operations. The 
unit assignment table is used as an index 
to the unit blocks. 


Unit Blocks 


The first reference to each unit number 
(i.e., data set reference number) bya 
direct access input/output operation within 
the FORTRAN load module causes IHCDIOSE to 
construct a unit block for each of the 
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referenced unit numbers. The main storage 
for the unit blocks is obtained by IHCDIOSE 
via the GETMAIN macro instruction. The 
addresses of the unit blocks are inserted 
into the corresponding unit assignment 
table entries as the unit blocks are _ con- 
structed. Subsequent references to the 
unit numbers are then made through the unit 
assignment table. 


Figure 20 illustrates the format of a 
unit block for a unit that has been defined 
as a direct access data set. 


aaa Too 1 = 2 aaa al pe 1 
| | [Not | Not | | 
{IOTYPE |STATUSU |used | used | 4 bytes | 
t---+—— jeer nee es operant oe eee 5 ee ee | 
i RECNUM | 4 bytes | 
Pie aca efeaire | sisi tesco veda eel | ececaaia emen aS { 
| STATUSA | - CURBUF | 4 bytes | 
}------- 1--------~----------~- }----------- { 
| BLKREFA | 4 bytes | 
arcana , Sais cries CAS a eae sciences eee { 
| STATUSA | CURBUF | 4 bytes | 
}------- 4_--—--—--~----------- +----------- { 
| BLKREFB | 4 bytes | 
}----------------------------- f----------- { 
| DECBA | 28 bytes | 
}----------------------------- $----------- { 
j DECBB | 28 bytes | 
}----------------------------- }----------- | 
{ DCB | 104 bytes | 
a Peep en gee enn ease nT a eee 5 rer ern J 
Figure 20. Format of a Unit Block for a 


Direct Access Data Set 


The meanings of the various unit block 


fields are outlined below. 


IOTYPE 
This field, containing the data set 
type passed to IHCDIOSE by IHCFCOMH, 
can be set to one of the following: 


FO -- Input data set requiring a 
format 

FF -- Output data set requiring a 
format 

00 -- Input data set not requiring a 
format 

OF -- Output data set not requiring a 
format 
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STATUSU 
This field specifies the status of the 
associated unit number. The bits and 


their meanings, when on, are as 

follows; 

0 -- Data control block for data set 
is open for BSAM 

1 -- Error occurred 

2 -- Two buffers are being used 

3 -- Data control block for data set 


is open for BDAM 


4-5 -- 10 - U-form specified in DEFINE 
FILE statement 


01 - E-form specified in DEFINE 
FILE statement 


11 - L-form specified in DEFINE 
FILE statement 


6-7 -- Not used 
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Note: IHCDIOSE references only bits 1, 2, obtained during data control block 


and 3. opening, this field is not used. 
RECNUM NXTBUF 
This field contains the number of This field contains the address of the 
records in the data set as specified DECB skeleton to be used next if two 
in the parameter list for the data set buffers are obtained during data con- 
in a DEFINE FILE statement. It is trol block opening. It is initialized 
filled in by the file initialization to contain the address of the DECBB 
section after the data control block skeleton by the file initialization 
for the data set is opened. section of IHCDIOSE after the data 
control block for the data set is 
opened. However, if only one buffer 
STATUSA is obtained during data control block 
This field specifies the status of the opening, this field is not used. 


buffer currently being used. The bits 
and their meanings, when on, are as 


follows: 
0 -~- READ macro-instruction has been BLKREFB 
issued The contents of this field are the 
same as described for the BLKREFA 
field. It is filled in either by the 
1 -- WRITE macro instruction has been read or the write section of IHCDIOSE 
issued prior to any reading or writing. In 
addition, the address of this field is 
inserted into the DECBB' skeleton by 
2 -- CHECK macro instruction has been the file initialization section of 
issued IHCDIOSE after the data control block 


for the data set is opened. However, 
if only one buffer is obtained during 

3-7 --— Not used data control block opening, this field 
is not used. 


CURBUF 
This field contains the address of the DECBA Skeleton 
DECB skeleton currently being used. This field contains the DECB (data 
It is initialized to contain the event control block) skeleton to be 
address of the DECBA skeleton by the used when reading into or writing from 
file initialization section of the current buffer. It is of the same 
IHCDIOSE after the data control block form as the DECB constructed by the 
for the data set is opened. control program for an L form of an 
| S-type READ or WRITE macro instruction 
BLKREFA under BDAM (see the publication IBM 
This field contains an integer that System/360 Operating System: Supervi- 
indicates either the relative position sor and Data Management Macro- 
within the data set of the record to Instructions. 
be read, or the relative position ” 
within the data set at which the 
record is to be written. It is filled 
in by either the read or write section 
Of IHCDIOSE prior to any reading or The various fields of the DECBA skeleton 
writing. In addition, the address of are filled in by the file initialization 


this field is inserted into the DECBA section of IHCDIOSE after the data control 
skeleton by the file initialization block for the data set is opened. The 
section of IHCDIOSE after the data completed DECB is referred to when IHCDIOSE 
control block for the data set is issues a read or a write request to BDAM. 


opened. For each input/output operation, IHCDIOSE 
supplies IHCFCOMH with the address of and 
STATUSB the size of the buffer to be used for the 


This field specifies the status of the operation. 
next buffer to be used if two buffers | 
are obtained for this data set during DECBB Skeleton 


data control block opening. The bits The DECBB skeleton is used when read- 
and their meanings are the same as ing into or writing from the next 
described for the STATUSA field. buffer. Its contents are the same as 
However, if only one buffer is those described for the DECBA skele- 
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ton. The DECBB skeleton is completed 
in the same manner as described for 
the DECBA skeleton. However, if only 
one buffer is obtained during data 


control block opening, this field is 
not used. 

DCB Skeleton 
This field contains the DCB (data 


control block) skeleton for the asso- 
ciated data set. It is of the same 
form as the DCB constructed by the 
control program for a DCB macro 
instruction under BDAM (see the publi- 


cation IBM System/360 Operating Sys- 


tem: Supervisor and Data Management 
Macro—Instructions). 


The various fields of the DCB skeleton 
are filled in by the control program when 
the DCB for the data set is opened (see the 


publication IBM System/360 Operating Sys- 
tem: Concepts and Facilities). 


Unit Assignment Table 


The unit assignment table (IHCUATBL) 
resides on the FORTRAN system library 
(SYS1.FORTLIB). Its size depends on the 
maximum number of units’ that can be 
referred to during execution of any FORTRAN 
load module. This number (<99) is speci- 
fied by the user during the system genera- 
tion process via the FORTLIB macro 
instruction. 


The unit assignment table is designed to 
be used by both IHCFIOSH and IHCDIOSE. Hf 
is included once, by the linkage editor, in 
the FORTRAN load module as a result of an 
external reference to it within IHCFIOSH 
and/or . IHCDIOSE. 


The unit assignment table contains a 
16-byte entry for each of the unit numbers 
that can be referred to by either IHCDIOSE 
or IHCFIOSH. These entries differ in for- 
mat depending on whether the unit has been 
defined as a direct access or aS a _ sequen- 
tial access data _ set. Because IHCDIOSE 
deals only with direct access data _ sets, 
only the entry for a direct access unit is 
shown here. (See the IHCFIOSH section 
"Table and Blocks Used", for the format of 
the unit assignment table as a whole.) If 
IHCDIOSE encounters a reference to a 
sequential access data set, it is consi- 
dered aS an error, and control is passed to 
the load module termination routine of 
ITHCFCOMH. 


Figure 21 illustrates the unit assign- 


ment table entry format for a direct access 
data set. 
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eg to 1 
| Pointer to unit block xx [4 bytes| 
| (UBLOCKxx) | 


} 
| Default values for DSRNxx (app- [8 bytes| 
| lies only to sequential access | 

| 

| 


| 

data sets -- not used by | | 
IHCDIOSE) | | 
}—__—__-—-_____ -+__- -____-___-_- +--+ 4 ---_-_--_ 


Pointer to parameter list xx |4 bytes| 
(LISTxx) 


| 

| 

|--------------------------------- 1----~~- { 
| UBLOCKxx is the unit block generated | 
| for unit number xx. | 
| | 
| DSRNxx is the unit number for the | 
| direct access data set (xx<99). [ 
| | 
| LISTxx is the parameter list that | 
| defines the direct access data set | 
| associated with unit number xx. | 
a a a hen apenas a ee ie ee ee ee ee ee J 


Unit Assignment Table Entry for 
a Direct Access Data Set 


Figure 21. 


The pointers to the unit blocks are 
inserted into the unit assignment table 
entries by IHCDIOSE when the unit blocks 
are constructed. 


The pointers to the parameter lists are 
inserted into the unit assignment table 
entries by IHCDIOSE when it receives con- 
trol from the initialization section of the 
FORTRAN load module being executed. 


BUFFERING 


All direct access input/output opera- 


tions are double buffered. (The double 
buffering scheme may be overridden by the 
user if he specifies in his DD statements: 
BUFNO=1. ) This implies that during data 


control block opening, two buffers will be 
obtained for each data set. The addresses 
of these buffers are given alternately to 
ITHCFCOMH as pointers to: 


e Buffers to be filled in the case of 


output 


e Data that has been read in and is to be 
processed in the case of input 


Each buffer has its own DECB. #£=‘This 
increases input/output efficiency by over- 
lapping of input/output operations. 


NS 


COMMUNICATION WITH THE CONTROL PROGRAM 


In requesting services of the control 
program BSAM and BDAM routines, IHCDIOSE 
uses L and E forms of S-type macro instruc- 
tions (see the publication IBM System/360 


Operating System: Supervisor and_ Data 
Management Macro-Instructions). 


OPERATION 


IHCDIOSE is divided 
into five sections: file definition, file 
initialization, read, write, and termina- 
tion. When a section receives control, it 
performs its functions and then returns 
control to the caller (either the FORTRAN 
load module or IHCFCOMH). 


The processing of 


File Definition Section 


The file definition section is entered 
from the FORTRAN load module, via a 
compiler-generated calling sequence, if a 
DEFINE FILE statement is included in the 
FORTRAN source module. The file definition 
section performs the following functions: 


e Checks for the redefinition of each 
direct access unit number. 


e Enters the address of each direct 
access unit number‘s parameter list 
into the appropriate unit assignment 
table entry. 


e Establishes addressability for IHCDIOSE 
within IHCFCOMH. 


Each direct access unit number appearing 
in a DEFINE FILE statement is checked to 
determine whether it has been defined pre- 
viously. If it has been defined previous- 
ly, the current definition is ignored. If 
it has not been defined previously, the 
address of its parameter list (i.e., the 
definition of the unit number) is inserted 
into the proper entry in the unit assign- 
ment table. The next unit number, if any, 
is then obtained. 


When the last unit number has been 
processed in the above manner, the file 
definition section stores the address of 
IHCDIOSE into the FDIOCS field within 
IHCFCOMH. This enables IHCFCOMH to link to 
IHCDIOSE when IHCFCOMH encounters a direct 
access input/output statement. Control is 
then returned to the FORTRAN load module to 
continue normal processing. 
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File Initialization Section 


The file initialization section receives 
control from IHCFCOMH whenever input or 
output is requested for a direct access 
data set. The processing performed by the 
initialization section depends on whether 
an input/output operation was previously 
requested for the data set. 


NO PREVIOUS OPERATION: If no operation was 
previously requested for the data set spe- 
cified in the current input/output request, 
the file initialization section first con- 
structs a unit block tor the data sete 
(The GETMAIN macro instruction is used to 
obtain the main storage for the unit 
block.) The address of the unit block is 
inserted into the appropriate entry in the 
unit assignment table. 


The file initialization section then 
reads the JFCB (job file control block) via 
the RDJFCB macro instruction. The value in 
the BUFNO field of the JFCB is inserted 
into the DCB’7 skeleton in the unit block. 
This value indicates the number of buffers 
that are obtained for this data set when 
its data control block is opened. If the 
BUFNO field is null (i.e., if the user did 
not include the BUFNO subparameter in the 
DD statement for this data set), or other 
than 1 or 2, the file initialization sec- 
tion inserts a value of 2 into the DCB 
skeleton. 


The file initialization section next 
examines the JFCBIND2 field in the JFCB to 
determine if the data set specified in the 
current input/output request exists. If 
the JFCBIND2 field indicates’ that the 
specified data set does not exist, and if 
the current request is a write, a new data 
set is created. (If the current request is 
a read, an error is indicated and control 
is returned to IHCFCOMH which may terminate 
load module execution. If the current 
request is a find, the request is ignored, 
and control is returned to IHCFCOMH. ) If 
the JFCBIND2 field indicates that the 
specified data set already exists, a new 
data set is not created for BDAM use. 


If the specified data set is already 
opened when the file initialization section 
is entered, the following checks are made: 
(1) If the data set is already opened for 
BDAM, the appropriate branch is taken to 
perform a READ or WRITE operation. (2) If 
the specified data set has been opened for 
BSAM, the data set is then closed, Since an 
input/output error must have occurred dur- 


_ ing the formatting of the data set. The 


data set is then reopened to provide a 
fresh start. 
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The file initialization section proces- 
Sing for a data set to be created, and. for 
a data set that already exists is discussed 
in the following paragraphs. 7 


Data Set to be Created: The data control 
block for the new data set is first opened 
for the BSAM, load mode, WRITE macro 
instruction. The BSAM WRITE macro instruc- 
tion is used to create a new data set 
according to the format specified in the 
parameter list for the data set in a DEFINE 
FILE statement. The data control block is 
then closed. Subsequent file initializa- 
tion section processing after creating the 
new data set is the same as that described 
for a data set that already exists (see the 
section "Data Set Already Exists"). 


Data Set Already Exists: The data control 
block for the data set is opened for direct 


access processing by the BDAM routines. 
After the data control block is opened, the 
file initialization section fills in 
various fields in the unit block: 


e The number of records in the data set 
is inserted into the RECNUM field. 


e The address of the DECB’- skeletons 
(DECBA and DECBB) are inserted into the 
CURBUF and the NXTBUF fields, re- 
spectively. 


e The addresses of the input/output buf- 
fers obtained during data control block 
opening are inserted into the appropri- 
ate DECB skeletons. 


e The address of the BLKREFA and the 
BLKREFB fields in the unit block are 


inserted into the appropriate DECB 
skeletons. 
Note: If the user specifies BUFNO=1 in the 


DD statement for this data set, only one 
input/output buffer is obtained during data 
control block opening. In this case, the 
NXTBUF field, the BLKREFB field, and the 
DECBB skeleton are not used. 


Subsequent file initialization section 
processing for the case of no previous 
operation depends upon the nature of the 
input/output request (FIND, READ, or 
WRITE). This processing is the same as 
that described for the case of a previous 
operation (see the section "Previous 
Operation"). 


PREVIOUS OPERATION: If an operation was 
previously requested for the data set 
specified in the current input/output requ- 
est, the file initialization section pro- 
cessing depends upon the nature of the 
current input/output request. 
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If the current request is either a find 


or a read, control is passed to the _ read 
section. 
If the current request is ae write, 


control is passed to the secondary entry in 
the write section. 


Read Section 


The read section of IHCDIOSE processes 
read and find requests. The read section 
may be entered either from the file initia- 
lization section of IHCDIOSE, or from 
THCFCOMH. In either case, the processing 
performed is the same. In processing read 
and find requests, the read section per- 
forms the following functions: 


e Reads physical records into the 
buffer(s) obtained during data control 
block opening. 


e Makes the contents of these buffers 
available to IHCFCOMH for processing. 


e Updates the associated variable that is 
defined in the DEFINE FILE statement 
for the data set. 


Upon receiving control, the read section 
first checks to see whether the record to 
be found or read is already in an input/ 
output buffer. Subsequent read section 
processing depends upon whether the record 
is in the buffer. 


RECORD IN BUFFER: If a record is in the 
buffer, the read section determines whether 
the current request is a find or a read. 


If the current request is a find, the 
associated variable for the data set is 
updated so that it points to the relative 
position within the direct access data set 
of the record that is in the buffer. 
Control is then returned to IHCFCOMH. 


If the current request is a read, the 
read operation that read the record into 
the buffer is checked for completion. The 
read section then places the address of the 
buffer and the size of the buffer into 
registers for use by IHCFCOMH. The asso- 
ciated variable for the data set is updated 
so that it points to the relative position 
within the direct access data set of the 
record following the record just read. 
Control is then returned to IHCFCOMH. 
RECORD NOT IN BUFFER: If a record is not 

buffer, the read section first 
obtains the address of the buffer to be 
used for the current request. The relative 
record number of the record to be read is 


Neco 


then inserted into the appropriate BLKREF 
field in the unit block (i.e., BLKREFA or 
BLKREFB). The proper record is then read 
from the specified data set into the buff- 
er. Subsequent read section processing for 
the case of a record not in the buffer is 
the same as that described for a record in 


the buffer (see the section “Record In 
Buffer"). 
Note 1: Record retrieval can proceed con- 


currently with CPU processing only if the 
user alternates FIND statements with READ 
statements in his program. 

Tf an inout/outout error occurs 
during reading, the control program returns 
control to the synchronous exit routine 
(SYNADR) within IHCDIOSE. The SYNADR- rou- 
tine sets a switch to indicate that an 
input/output error has occurred, and then 
returns control to the control program. 
The control program completes its proces- 
Sing and returns control to IHCDIOSE. 
IHCDIOSE interrogates the switch, finds it 
to be set, and passes control to the 
input/output error routine of IHCFCOMH (see 
"Error Processing"). 


Write Section 


The write section of IHCDIOSE processes 
write requests. The write section may be 
entered either from the file initialization 
section of IHCDIOSE or from IHCFCOMH. The 
processing performed by the write section 
depends upon where it is entered from. 


PROCESSING IF ENTERED FROM FILE INITIALIZA- 
TION SECTION: If the write section is 
entered from the file initialization sec- 
tion of IHCDIOSE, no writing is performed. 
The write section only provides IHCFCOMH 
with buffer space in which to place the 
record to be written. The relative record 
number of the record to be written is 
inserted into the appropriate BLKREF field 
(i.e., BLKREFA or BLKREFB). (The record is 
written the next time the write section is 
entered.) For a formatted write, the buff- 
er is filled with blanks. For an unfor- 
matted write, the buffer is filled with 
ZELOS « The write section then places the 
address of the buffer and the size of the 
buffer into registers for use by IHCFCOMH. 
Control is then returned to ITHCFCOMH. 


PROCESSING IF ENTERED FROM IHCFCOMH: Each 
time the write section is entered from 
IHCFCOMH, it writes the contents of the 
buffer onto the specified data set. Subse- 
quent write section processing for 
entrances from IHCFCOMH is the same as that 
described for entrances from the file 
initialization section of IHCDIOSE (see the 
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Note 2: If 


problem program —- 


section “Processing if Fntered from File 
Initialization Section"). In addition, the 
associated variable is modified prior to 
returning to IHCFCOMH. The associated 
variable for the data set is updated so 
that it points to the relative position 
within the direct access data set of the 
record following the record just written. 


Note 1: The writing of physical records by 
this section is overlapped. That is, while 
THCFCOMH is filling buffer A, buffer B is 
being written onto the output data _ set. 
When buffer A has been filled, the write 
from buffer B is checked for completion. 
Upon completion of the write operation, 
THCFCOMH starts placing data into buffer B. 
In addition, a write from buffer A is 
initiated. 


an input/output error occurs 
during writing, the control program returns 
control to the synchronous exit routine 


(SYNADR) within IHCDIOSE. The SYNADR rou- 
tine sets a switch to indicate that an 
input/output error has occurred, and then 


returns control to the control program 
The control program completes its proces-— 
Sing and returns control to THCDIOSE. 
ITHCDIOSE interrogates the switch, finds it 
to be set, and passes control to _ the 
input/output error routine of IHCFCOMH (see 
"Error Processing"). 


Error Processing 


The way in which errors are processed is 
dependent upon whether or not the extended 
error message facility was specified at 
system generation time. 


WITHOUT EXTENDED ERROR MESSAGE FACILITY: 
An error number is put into a parameter 
list and register 13 is set up to point to 
a save area in IBCOM. The user's save area 
is linked to this’ save error 
monitor is then called. 


area. The 


WITH EXTENDED ERROR MESSAGE FACILITY: A 
2-part common subroutine is called to pre- 
pare for a call to the error monitor. The 
first part of the subroutine links save 
areas as described when no error message 
facility has been specified. It is used 
only when an error occurs in the portion of 
IHCDIOSE which was called directly from the 
l.e., for error condi- 
tions 234 and 235. The second part of the 
common subroutine is used for those errors 
as well as for errors detected in that 
portion of TIHCDIOSE called from IHCFCOMH - 
iee., error conditions 231 through 233, and 
236 through 237. It puts the data set 
reference number into the last four bytes 
of the error message and links to the error 
monitor. 
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For error condition 232, the number of 
the record requested is placed in the 
parameter list before calling the common 
subroutine. For error conditions 218 and 
237, the DCB address is’ placed in the 


parameter list. 


Sete cere eoenense erate SA detects FUROR mina eae wemenin 


The termination section of IHCDIOSE 
receives control from the load module ter- 
mination routine of IHCFCOMH. The function 
of this section is to terminate any pending 
input/output operations involving direct 
access data sets. The unit blocks asso- 
ciated with the direct access data sets are 
examined by IHCDIOSE to determine if any 


input/output is pending. CHECK macro 
instructions are issued for all pending 
input/output operations to ensure their 
completion. 

The data control blocks for the direct 
access data sets are closed, and the main 
storage occupied by the unit blocks is 
freed via the FREEMAIN macro instruction. 


control is then returned to the load modu- 
letermination routine of IHCFCOMH to com- 
plete the termination process. 


ITHCIBERH 
IHCIBERH, a member of the FORTRAN system 
library (SYS1.FORTLIB), processes object- 


time source statement errors. IHCIBERH is 
entered when an internal sequence number 
(ISN) cannot be executed because of a 
source statement error. 


The ISN of the invalid source statement 
is obtained (from information in the call- 
ing sequence) and is then converted to 
decimal form. IHCIBERH then links to 
IHCFCOMH to implement the writing of the 
following error message: 


THC230I -—- SOURCE ERROR AT ISN xxxx - 
EXECUTION FAILED AT SUBROUTINE - 
(xxxx) 


After the error message is written on 
the user-designated error output data _ set, 
THCIBERH passes control to the IBEXIT rou- 
tine of IHCFCOMH to terminate execution. 


Chart G7 illustrates the overall logic 
of IHCIBERH. 
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IHCDBUG 


IHCDBUG performs the object-time opera- 
tions of the debug facility statements. 
All linkages from the load module 
to IHCDBUG are compiler generated. 


Ttems and Buffer 


The following items in IHCDBUG are 
initialized to zero at load time: 


DSRN -- the data set reference number 
TRACFLAG -- trace flag 

IOFLAG -- input/output in progress flag 
DATATYPE -~- variable type bits 

assembled for 
70-byte area 


character of 
blank for 


Whenever information is 
output, it is placed in a 
called DBUFFER. The first 
this area is permanently set to 
Single spacing. 


Operation 


The first portion of IHCDBUG, called by 
entry name DEBUG#, is a transfer table; 
this table is referred to by the code 
generated for the debug facility state- 


ments, and branches to the 13 sections of 
ITHCDBUG. These sections are discussed 
individually. 

TRACE ENTRY: If TRACFLAG is off, this 
routine exits. Otherwise, the characters 
"TRACE' are moved to DBUFFER + 1, the 
subroutine OUTINT converts the statement 


label to EBCDIC and places it in DBUFFER, 
and a branch is made to OUTBUFFR. 


SUBTRACE ENTRY: The characters ‘SUBTRACE’ 
and the name of the program or subprogram 
are moved to DBUFFER and a branch is' made 
to OUTBUFFR. 


SUBTRACE RETURN ENTRY: The characters. 
*SUBTRACE ¥*RETURN*¥!' are moved to DBUFFER 
and a branch is made to OUTBUFFR. 


UNIT ENTRY: The unit number argument is 
placed in DSRN and the routine exits. 


INIT SCALAR ENTRY: The data type is saved, 
the location of the scalar is computed, 
subroutine OUTNAME places the name of the 
scalar in DBUFFER, and a branch is made to 
OUTITEM. 


‘the CURBYTLC is 


INIT ARRAY ELEMENT ENTRY: This routine 
saves the data type, computes the location 
of the array element, and (via the subrou- 
tine OUTNAME) places the name of the array 
in DBUFFER. It then computes the element 
number as follows: 


element number = ((element location - 
first array location) / element 

Size) + 1 
and places a left parenthesis, the element 


number (converted to EBCDIC by subroutine 
OUTINT), and a right parenthesis in DBUFFER 
following the array name. A branch is then 
made to OUTITEM. 

INIT FULL ARRAY ENTRY: If IOFLAG is. on, 
the character X‘FF* is placed in DBUFFER, 
followed by the address of the argument 
list, and a branch is made to OUTBUFFR. 
Otherwise, a call to the INIT ARRAY ELEMENT 
entry is constructed, and the routine loops 
through that call until all elements of the 
array have been processed. 


PT CHECK E The location of the 
array element is computed; if it is less 
than or equal to the maximum array 1l10ca- 
tion, the routine exits. If the array 
element location is outside the bounds of 
the array, the element number is computed 
and the characters *SUBCHK' are placed in 
DBUFFER. The subroutine OUTNAME then 
places the name of the array in DBUFFER, 
OUTINT supplies the EBCDIC code for the 
element number (which is enclosed in paren- 
theses), anda branch is made to OUTBUFFR. 
TRACE ON ENTRY: TRACFLAG is turned on (set 
to nonzero) and the routine exits. 


TRACE OFF ENTRY: TRACFLAG is turned off 
(set to zero) and the routine exits. 
DISPLAY ENTRY: If IOFLAG is on, the char- 
acters * DISPLAY DURING INPUT/OUTPUT 
SKIPPED' are moved to DBUFFER and a branch 
is made to OUTBUFFR. Otherwise, a calling 
sequence for the NAMELIST write routine is 
constructed. If DSRN is equal to zero, the 
unit number for SYSOUT (in IHCUATBL + 6) is 
used as the unit passed to the NAMELIST 
write routine. On return from the NAMELIST 
write, this routine exits. 





START INPUT/OUTPUT ENTRY: The BYTECNT is 
set to 252 to indicate that the current 
area is full, the IOFLAG is set to X'80' to 
indicate that input/output is in progress, 
set to the address of 
SAVESTRT (where the location of the first 
main block will be), and the routine exits. 
(See the discussion of ALLOCHAR. ) 








END INPUT/OUTPUT ENTRY: The IOFLAG is 
saved in TEMPFLAG and IOFLAG is reset to 
zero so that this section may make debug 


Appendix F: 


calls that result in output to a device. 
If no information was saved during the 
input/output, this routine exits. 


FREECHAR iS used to 
extract one character at a time from the 
Save area. If an xX‘FF* is encountered 
(indicating the output of a full array), 
the next three bytes give the address of 
the call to INIT FULL ARRAY entry. A call 
to the DEBUG INIT FULL ARRAY entry is then 
constructed and executed. If X‘'FF*' is not 
encountered, characters are placed in 
DBUFFER until an X'15' is found, indicating 
the end of ae line. When this code is 
found, the subroutine OUTPUT is used to 
write out the line. 


The subroutine 


If no main storage or insufficient main 
storage was available for saving informa- 
tion during the input/output, the char- 
acters ‘SOME DEBUG OUTPUT MISSING* are 
placed in DBUFFER after all saved informa- 
tion (if any) has been written out. The 
subroutine OUTPUT is then used to write out 


the message, and this routine returns to 
the caller. 
Subroutines 

The following subroutines are used by 


the routines in IHCDBUG. 


OUTITEM: First, the characters ' = ‘* are 
moved to DBUFFER. Four bytes of data are 
then moved to a work area on a doubleword 
boundary to avoid any boundary alignment 
errors when registers are loaded for 
logical or integer conversion. A branch on 
type then takes place. For fixed point, 
the routine OUTINT converts the value to 
EBCDIC and places it in DBUFFER. A branch 
to OUTBUFFR then takes place. 


For floating values, subroutine OUTFLOAT 
places the value in DBUFFER. A branch to 
OUTBUFFR then takes place. 


For complex values, two calls to 
OUTFLOAT are made -- first with the real 
part, then with the imaginary part. A left 
parenthesis is placed in DBUFFER before the 
first call, a comma after the first call, 
and a right parenthesis after the second 
call. A branch to oOUTBUFFR then takes 
place. 


For logical values, a T is placed in 
DBUFFER if the value was nonzero; other- 
wise, an F is placed in DBUFFER. A_ branch 
to OUTBUFFR then takes place. 


OUTNAME : This is a closed subroutine. Up 
to six characters of the name are placed in 
DBUFFER. However, the first blank in the 
name causes the routine to exit. 
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OUTINT: This is a closed subroutine. If 
the value (passed in R2) is equal to zero, 
the character '0' is placed in DBUFFER and 
the routine exits. If it is less’ than 
zero, a minus Sign is placed in DBUFFER. 
The value is then converted to EBCDIC and 


placed in DBUFFER with leading zeros sup- 
pressed. The routine then exits. 

OUTFLOAT : This subroutine calls the 
library module IHCFCVTH to put the 


floating-point number out under G _ conver- 
Sion with a format of Gxt+7.x, where: 


x = 7 for single precision 
x = 16 for double precision 
OUTBUFFR: If IOFLAG is not set, the rou- 


SR A ee ec TT 


tine calls the subroutine OUTPUT and then 
exits. Otherwise, IOFLAG is set to indic- 
ate that debug output during input/output 
occurred. Then, a call 1s made to ALLOCHAR 
for each character in DBUFFER, and finally, 
a call to ALLOCHAR with X'15' indicating 
the end of the line. The routine then 
exits. 


ALLOCHAR: This is a closed subroutine. If 
BYTECNT is equal to 252 bytes, indicating 
the current block is full, a new block of 


256 bytes is obtained by a GETMAIN macro 


instruction. If no storage was available, 
an xX'O7"', indicating the end of core 
Storage, is placed in the last available 


IOFLAG is set to full, and 
the routine exits. Otherwise, the address 
of the new block is’ placed in the last 
three bytes of the previous block, preceded 
by X'37' indicating end of block with new 
block to follow. CURBYTLC is then set to 
the address of the new block and BYTECNT is 
set to zero. The character passed as an 
argument is then placed in the byte pointed 
to by CURBYTLC, one is added to both 
CURBYTLC and BYTECNT, and the routine 
exits. 


byte position, 


FREECHAR: This is a closed subroutine. If 
the current character extracted is X'37', 
the next three bytes are placed in CURBYTLC 
and the current block is’ freed. If the 
current character is X'07' the block is 
freed and a branch is made to the end 
input/output exit. Otherwise, the current 
character is passed to the calling routine 
and CURBYTLC is incremented by one. 


OUTPUT: This is a closed subroutine. If 
DSRN is zero, the SYSOUT unit number is 
obtained from IHCUATBL + 6 A call is then 
made to FIOCS# output initialize, DBUFFER 
is transferred to the FIOCS# buffer, and a 
call is made to FIOCS# output. The routine 
then exits. 
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IHCTRCH 


IHCTRCH, a member of the FORTRAN system 
library (SYS1.FORTLIB), processes terminal 
errors detected by FORTRAN library subrou- 
tines at object time. IHCTRCH is’ entered 
when an error is detected in order to print 
a traceback map. After this is accomp- 
lished, the job is terminated unless’ the 
extended error message facility has been 
requested. 


IHCTRCH issues the following message: 


ITHCxXxxT 
TRACEBACK FOLLOWS ROUTINE ISN REG. 14 
REG. 15 REG. QO REG. 1 


code (in decimal 
from the calling 


where xxx is the error 
form) that it obtains 
sequence. 


If the 
IHCFCVTH, 


error occurred in IHCFCOMH, 

THCNAMEL, IHCDIOSE, or IHCFIOSH, 
IHCTRCH setS up an area which can be 
processed as a standard save area for the 
first traceback line. 


For each traceback line, IHCTRCH gets 


the name of the called routine, the 
internal statement number, if any, of the 
call within the calling routine, and the 


contents of registers 14, 15, 0, and 1 in 
hexadecimal. 


THCTRCH checks 
not the called 


After printing each line, 
to determine whether or 
routine was the main FORTRAN routine. If 
it was, the entry point is printed in 
hexadecimal and a branch is made to IBEXIT. 
If it was not, a traceback loop-check 
routine is entered, which builds and checks 
a table of save area addresses. If the 
table is full or if a loop is’ detected, 
THCTRCH prints TRACEBACK TERMINATED and 
then prints the main FORTRAN routine entry 
point and branches to IBEXIT. 


convert to 
it uses 


IHCTRCH uses IJIHCFCVTH to 
printable hexadecimal format, and 
IHCFIOSH for printing. 


Further information about traceback, 
including an example of output, is con- 
tained in the publication IBM System/360 


Operating System, FORTRAN IV (G)  Program- 
mer*s Guide, Form C28-6639. 


ITHCFINTH 


The module IHCFINTH processes asynch- 
ronous program interrupts. Every FORTRAN 
main program notifies the system's first 
level interrupt handler (via a SPIE macro 


instruction) to transfer to the entry point 
ARITH# in module IHCFINTH in the event of a 
program interrupt. 


FORTRAN requests interrupt service for 
the program interrupts listed below. All 
others cause job termination by the system. 
(For a description of program interrupts, 
see the publication IBM System/360: Prin- 
ciples of Operation, Form A22-6821.) 


Code Description 
9 Fixed-point divide 
11 Decimal divide 
iz Exponent OVect iow 
13 Exponent underflow 
15 Floating-point divide 
Codes 8 and 14 are masked so that no 


interrupt occurs. 


If boundary alignment adjustments were 
requested when the system was created, then 
interrupt 6 specification -is also re- 
quested. The processing for specification 
interrupts is handled by the module 
IHCADJST, however. 


The services performed by the interrupt 
processing routine IHCFINTH are as follows: 


1. A message is printed that identifies 
the interrupt. 


2.e Switches are set for exponent over- 
flow, exponent underflow and, divide 
check for the FORTRAN subprograms CALL 
OVERFL(J) and CALL DVCHK(J). 

altered for 


3. Result registers are 


exponent overflow and underflow as 

follows: 

Overflow -- maximum floating-point 
number. 

Underflow -- zero. 


In addition, if the operation was an 
add or subtract and exponent underflow 
occurred, then the condition code is 
set to 0. 


When the extended error message facility 
has. been requested, then the module 
IHCFINTH has the ability to accept a user 
exit and to control the printing of mes- 
sages and the number of occurrences of the 
various interrupts. The user exit may 
provide an alternate value to be placed in 
the result register for underflow and over- 
flow before execution continues. 
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IHCERRM 


IHCERRM is the execution error monitor. 
Each FORTRAN library program that detects 
an error calls the IHCERRM module for error 
message service. The service available is 
dependent upon which of two options, basic 


message facility or extended error message 
facility, was selected at system 
generation. 

When the basic message facility is 
requested, each error causes job termina- 
tion anda traceback map is produced. The 
MESSagEeS printeG on the opjyect |Error unit 


will contain a description of the error 
Situation if the error was detected by the 


mathematical library. For other error 
situations, only an error code is printed. 
For a full description of these error 


codes, see the FORTRAN (G) Programmer's 
Guide publication. 


When the extended error message facility 
is present, the error monitor is directed 
by the option table to perform one or more 
of the following actions: 


e Print a message 
e Terminate the job 


® Call a user-written routine for 
corrective action. Upon return from 
the user-written routine, the return is 
made to the caller of the error 
monitor. 
e Return to the caller of the error 
monitor an indication that standard 
corrective action is required. The 
routine that called the error monitor 
has the programming to provide the 
standard corrective action. 


To enable dynamic control of error 
occurrences and printing suppression, rou- 
tines can be called from the FORTRAN source 
language. 


Because error message printing can be 
suppressed, a summary Of error occurrences 


is given before return is made to the 
system. 

The FORTRAN library provides the error 
message facility through the following 
services: 

1. Each module that detects an error 
calls the error monitor. The module 
can accept a return from the error 


monitor and supply a standard correct- 
ive action. 


2e An error monitor is supplied. 
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3. Routines’ are 
option table. 


supplied to change the 


4. An option table is supplied. 


5. The exit code of the 
provides 
summary. 


FORTRAN library 
for the printing of an error 


The following is a 


description of the 
error monitor: 


On initial entry, the error monitor will 
set a switch. If entered again before the 
switch is set to off, a recursive situation 
is detected and tthe job is terminated. 


The error monitor then retrieves’ the 
error entry from the option table and makes 
the following actions and tests them in the 
order listed: 


1. Updates the current count of errors 
encountered. 
2. Does the current count of errors 


exceed the number of allowable errors, 
indicating that the job should be 
terminated? 


current count of messages 
printed exceed the number of messages 
to be printed, indicating that message 
printing is to be suppressed? 


3. Does the 
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user to 


| rence, has 


4. Should a traceback map be printed? 


5e Is a user exit specified? If it is, 
the exit routine, which must return to 
the error monitor, is called. 


6. Return to the caller of the error 
monitor after turning off the switch 
that indicates that the error monitor 
has been entered. 


Charts G8 and G9 show the overall logic 
of the error monitor. 


THCFOPT, the routine that allows the 
alter the option table thereby 
achieving dynamic control over error occur- 
three entry points: ERRSTR, 
ERRSAV, and ERRSET. 


The option table consists of an entry 
for each error number and a preface of 
eight bytes. An option table entry for an 
error number is described in Table 14. 


If the extended error message facility 
has not been specified at system generation 
time, the option table is reduced to _ the 
preface alone. The option table preface is 
described in Table 15. 


e Table 14. Description of Option Table Entry 


So a aaa ogo Dag apn mew wee eae eg pd ea a RD eR eS ee oe TS 1 
| |Default | | 
|Field|Length [|Settings‘] Description | 
|-----4-------- }----~----4-------------------------------------------------------------- { 
|} 1 j}1 byte | 102 ere a count. When the count in this field matches field| 
| | | | 3, the job is terminated. The maximum count is 255. A 
| | | | count of zero means unlimited number of occurrences.? Any| 
| | | | count greater than 255 supplied by ERRSET will set this| 
| | | | field to zero. | 
| | | | | 
| 2 j1 byte | a JA count of the number of messages to be printed; message| 
| | | | printing is suppressed after the count is exceeded. A count| 
| | —_ | of zero means no messages are to be printed. | 
| | 

i 3 e bvte | 0 ee of number of errors that have occurred, where 0 means ae 
| | | | errors have occurred. | 
| | | | | 
| 4 J}1 byte | [Eight option bits defined as follows: | 
| | | | | 
| 1 pit ol 0 | Control character indicator | 
| | | | 0 = none, 1 = single space | 
| | 1 | 1 | Table entry modifiable | 
| | | | O = no, 1= yes (See Note 5) | 
| | 2 | 0 | Extension of count of errors that have occurred | 
| | 3 | (See | Buffer contents to be printed | 
| | | Note 6)| 0 = no, 1 = yes | 
| | 4 | 0 | Unused (reserved) | 
| | 5 | 0 | Unlimited number of messages allowed | 
| | | | 0 = no, 1 = yes | 
| | 6 | 1 | Traceback required | 
| | | | 0 = no, 1 = yes | 
| | 7 | 0 | Unused (reserved) | 
| | | 

| 5 {4 bytes | 1 maaveus of user's exit routine. If the value of entry is saan 
| | | | standard corrective action is indicated. | 
}-_——.— a ee ae yee empire oes Ce MeL ep yet ane? Ney pepe SO Yakhnis Pet smb Nae tny km Wo Aan REE meat ot an Gein ot Ae ae MO Neen CEE | 


{+The default values shown apply to all error numbers unless excepted by a footnote. | 
|2Errors 208, 210, and 215 are set as unlimited, and errors 217 and 230 are set to 1. | 
|sWhen the user sets the count of allowed errors as unlimited, the FORTRAN job may loop| 
| endlessly unless the operator intervenes. | 
{|*Error 210 is set to 10, and errors 217 and 230 are set to 1. | 
{5The entry for error 230 is not modifiable. | 
|°This entry is set to 0 except for error numbers 212, 215, 218, 221, 222, 223, 224, and| 
| 225. 
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in the call to ERRSAV. If the requested 
entry is not in the option table, a message 
is printed. 


To store an entry in the option table, 
the source program calls IHCFOPT through 
its entry name ERRSTR. If the requested 
entry exists in the option table, it is 
checked to see whether or not that entry 
can be modified. If it can be modified, 
the entry passed to ERRSAV is placed in the 
option table to replace the previous entry. 
If the existing entry is unmodifiable, a 
message stating this is printed. 
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eTable 15. Description of Option Table Preface 

Seas aaa uate Sy (cate a aria Sr ee re 1 
| | Length | | 
| [Cin | | a | 
|Field|bytes)| Default | Description | 
p=—===4-— += == 1SoS SS pe { 
| 1 | 4 | 95 | Contains the count of the number of entries in the option] 
| | | | table. | 
| fs : . . | 
| 2 | 1 | 1=bit 1 | Boundary alignment switch | 
| | | | 1 = ALIGN | 
| | | | 0 = NOALIGN | 
| | | | Bit 1 of this byte contains the switch. { 
| | | | | 
j] 3 | 1 | 0 | Error message handling selected | 
| | | | FF = no, 00 = yes | 
| | | | For no error message facility, the default will be FF. | 
| | | | | 
|; 4 | 1 | 0 | For no error message facility, boundary align count is kept] 
| | | | here. Default is then 10. | 
| | | | | 
| 5 | 1 | 0 | Not used (reserved). | 
es pi eee on cane pee ae a eee Se tate Nate AON PC ae CI aE ee er EO FATT RN ed CR AE aM IELTS OE Ne ee Oe een teens es eee J 

To obtain an entry from the option To change individual fields in the 
table, the source program calls IHCFOPT | option table, the source program calls 
through its entry name ERRSAV. When the | IHCFOPT through its entry name ERRSFT. If 
requested entry is located in the option | the requested entry exists in the option 
table, it is placed in the address passed | table, each field of the entry for which an 


alteration is requested is checked to see 
whether or not it contains a value of zero. 
(The IRANGE field error IHC215I is an 
exception.) If it does, that field will 
not be altered. If it does not, the field 
is replaced with the new field passed in 
the call to ERRSET. AS parameters are 
processed, a check is made for an early end 
to the parameter list. 


and G12 show the over- 
routine to alter the 


Charts G10, Gill, 
all logic of the 
option table. 





Se 


* FROM FSTOP OR #* 


* IBFERR * 
* * 


KK KKK KKK KE KE 


RIOR G RR ERE CK 
* IBEXIT * 
K- kk KA K- - K R 
* CLOSE DATA ¥ 
*SETS (TERMINATE* 


* EXECUTION) * 
3 RK RK RK 


Vv 
RH do do Ek 
* TO * 
* OPERATING * 
* SYSTEM * 
RG dk kkk ek 


* FROM MODULE  ¥* 
{DETECTING ERROR 


KHKKKEKKKKKKKEKSE 


KRKAKKGD KKK KKK KKK 


* IHCERRM * 
*- kk kK KK 
* CALL * 


* ERROR MONITOR * 
* * 


Pee ee ee Pe See TLL ST 


aK TD ee ok Rk 

* TO * 
: IBEXIT * 
RR ACR OR EER REE 
IF EXECUTION 


IS TO CONTINUE, 
RETURN TO CALLER 


* FROM * 
* IHCFIOSH OR * 
* IHCDIOSE * 
FR REE EO ARK + 


KK KEG 3K KR KKK KKK EK 
* EXCEPT/FERROR * 
e— kK KH KEK 
* DETERMINE +* 
* IF PARAMETER + 
* SPECIFIED * 
KKKKKKKEKKKKKEKK EK 


HK KY 3 ORK OK KE EE 
* TO * 
* LOAD MODULE * 
* IF SPECIFIED +* 

KK KK KOK EK KK KKK 

IF PARAMETER NOT 


SPECIFIED, EXIT IS 


TO ERRMON 
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* FROM * 
: LOAD MODULE #* 


KKK KK KKK KKK KEK EK 


Vv 
eo KK UK OK OK KK KEK 


* IBFINT * 
#- *-*- kK KK KK 
* PROCESS * 


* ARITHMETIC * 


* INTERRUPTION * 
2 oR RR RR ORK 


Vv 
RR HU RRR RE 
* TO * 
* LOAD MODULE * 
* * 
AOR RCE OR Ek 


e Chart GO. THCFCOMH OVERALL LOGIC AND UTILITY ROUTINES 

REED RRR RE THE LOAD MODULE ENTERS 

* LOAD * IHCFCOMH VIA A COMPILER- 

: MODULE : GENERATED CALLING SEQUENCE. 

KKK KK KKK KK KK KK 

KEKEKB DKK KEK KKK KK 

* * 

* DETERMINE * 

* REQUEST TYPE +* 

* * 

KEKKKKKEKKEKEKK KEE 

V 
REQUEST TYPE CHART] MAJOR PROCESSING EXTERNAL SUBROUTINES CALLED 
ROUTINES WITHIN 
THCFCOMH/ LHCNAMEL 
SEQUENTIAL AND G1A2 | FRDWF, FWRWF, FIOLF, IHCFIOSH (SEQUENTIAL), OR IHCDIOSE 
DIRECT ACCESS FIOAF, FENDF (DIRECT ACCESS), ALSO FOLLOWING 
READ/WRITE ROUTINES WITHIN IHCFCVTH -— FCVII 
REQUIRING A FCVIO, FCVEI, FCVEO, FCVDI, FCVDO, FVCLI, 
FORMAT FCVLO, FCVZ1, FCVZO, FCVFI, FCVFO, FCVAI, 
FCVAO, FCVGI, FCVGO 
SEQUENTIAL AND G1F2 | FRDNF, FWRNF,FIOLN, IHCFIOSH (SEQUENTIAL) 
DIRECT ACCESS FIOAN, FENDN IHCFIOSE (DIRECT ACCESS) 
READ/WRITE NOT 
REQUIRING A FORMAT 
READ USING G2E1 | FRNDL IHCFIOSH, FCVEI, FCVDI, FCVAI, 
NAMELIST FCVLI, FCVGI, FCVCL, FCVFI, FCVII 
WRITE USING G2E5 | FWDNL 
NAMELIST FCVGO, FCVCO, FCVIO, FCVFO 
DEVICE G2B3 | FBKSP,FRWND, IHCFIOSH 
MANIPULATION FEOFM 
WRITE TO OPERATOR |G2G3 | FSTOP, FPAUS NONE 
IBEXIT ERRMON EXCEPT IBFINT FEKROR 
aK Bok KK KKK ED KKK KK KK HR KEES ERK E ES KKK KKKKKA KKK RAED RK EE KEK 


* FROM * 
: ITHCFCOMH : 


KKK RK RR KEK KKK 


Vv 
4G 5 KR OK RK 
* FERROR + 
k- k= ko Ke KR HK 
* DETERMINE IF * 
* ERR PARAMETER * 
* SPECIFIED * 
Tree Seer eS Sere S| 


Vv 
KK LS OK 
* TO * 
* LOAD MODULE ¥* 
* IF SPECIFIED * 
aK KK KK KK KOK KKK 
IF PARAMETER NOT 


SPECIFIED, EXIT IS 


TO ERRMON 


Chart Gl. 


READ/WRITE 
REQUIRING A 
FORMAT 


READ/WRITE NOT 
REQUIRING A 
FORMAT 
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IMPLEMENTATION OF READ/WRITE/FIND 


HHH HH 

*G1 * 

* A2Q* 
* * 
* 


t-_--_ > * 


HHHEHR 

*G1 * 

*% Fox 
* * 
* 


ewer 


THCFCOMH 


FROWF /F WRWF 

HEHEHE ADEE HHH EEE 
*PERFORM OPENING* 
*OPERATIONS FOR * 
READ/WRITE * 
* REQUIRING * 
* A FORMAT * 
KEENE EK HH HEHEHE 


ee es 


FIOAF/FIOLF 
HHHEHG DEK KHHH HHH 
* PERFORM I/O * 
LIST SECTION * 
OPERATIONS #< 


* 
x 
* ON LIST ITEM * 
* % 
* 


HHH K KH HH HHHHHH 


[SRS renner er Onn ne 


FENDF 
HHH OD EH KHER HHH 


* 
* CLOSE OUT * 
* I/O *#K 
* OPERATION * 
* 

* 


* 


* 
KEKKHKHKKHKHHKKKEHH 


[ees 


ITHCFCOMH 


FRDNF /F WRNF 
HER KKE DHE KKK HK KE 
*PERFORM OPENING* 
*OPERATIONS FOR * 
>*READ/WRITE/F IND*® 
* NOT REQUIRING * 
* A FORMAT * 
KKK KRNHKREKEKE KKH 
| 
| 
| 


tee? Seeger 


FIOLN/F IOAN 

HEEHHEGPKEKKKHHKHEK 
PERFORM 1/0 * 
* LIST SECTION * 
* OPERATIONS ¥< 
* ON LIST ITEM * 
* 
* 


Fd 


%& 
KKKEKHEEKKEKHEKKHEHE 


fae ieee eee 


FENDN 

HHH HH JD HH HHI HE 
* 
* CLOSE OUT * 
* 1/0 CS 
* OPERATIONS * 
* 
* 


* 


* 
RHEE EKG HHRE 


| ese re aes en eee eN Nee wee meee 


eesoeoeeoeeeeeeeeeeseeoeetseoeseseeseeseesvseseseseeeoeeeeeseeeeveeseseseeeesteseeveeesve*wseeeoeeoeeseseeeeeseeeeoeeeseesteeereeseeeweeeseeeeseeesoeseeevee*etespeoaseeoeeveeeveesescoovaeev eve eee we wn eee ee ehlcehlUc tlk lf 


LOAD MODULE 


pa 


HKHHE BE HKHHHKKKEKRE 


*GET LIST ITEMe * 
* CALL I/O LIST * 


* SECTION OF * 
* IHCFCGMH * 
* *% 


HHH HH HH HH HH HH HE 


HHKKKDARKHKKHKHKKE 


Ps + 
* CALL CLOSING ¥* 
* SECTION OF * 
* THCFCOMH # 
* * 
* * 


KHKMHHK HMM HH HHH 


| 


HRHARHRKE GA KHHHRKHKKKHEK 
. . 
* CONTINUE WITH * 
* LOAD MODULE * 
* EXECUTION * 
* * 
# ra 


MMM KMRKHHKRKRHHEHKKE 


LOAD MODULE 


es, | 


Vv 
HRHEKHGY HH HK KHHHHE 
*¥GET LIST ITEM. * 
* CALL I/O LIST * 


* SECTION OF * 
* IHCFCOMH * 
* *% 


HRKHEKEKHHKHEHHHHHE 


Sele bartered Serena 


Co-— 


HHH IG KEK KEKHEEE 
* * 
* CALL CLOSING #* 
* SECTION OF * 
* 
* 
* 


* ITHCFCOMH 
* 


HHH EHH KEE KREE 


| 


KHHHKKCG HHKHKKEKRKE 


% * 
® CONTINUE WITH * 
* LOAD MODULE * 
# EXECUTION * 
*% * 
* * 


HHEEKHEMKEKEHHEHEE 


<— 


Lane cece ee SAS ene A te A a Se Se 


<— 


THIS CALL IS 
GENERATED BY 
COMPILER WHEN 
T/Q LIST ITEM 
IS ENCOUNTERED 


THIS CALL IS 
GENERATED BY 
COMPILER WHEN 

ALL 1/70 LIST ITEMS 
ARE PROCESSED 


THIS CALL IS 
GENERATED BY 
COMPILER WHEN 
I/O LIST ITEM 
IS ENCOUNTERED 


THIS CALL IS 
GENERATED BY 
COMPILER WHEN 

ALL I/70 LIST ITEMS 
ARE PROCESSED 


ee 


Chart G2. DEVICE MANIPULATION 


READ USING 
NAMELIST 
HHH HH 
¥G2Q * 
* €1% 
% * 
* 


Vv 
HRRHHKKE | RHHKKKHERE 


* FRDNL * 
K— K— K— H—- K— H— H— H— HE 
* IMPLEMENT  ¥* 
* READ USING ¥* 
*  NAMELIST * 
HEH KEKREKHKHKERKKER 


Vv 
HHHKE 1 HR KH HHH 
TO 
LOAD 


MOOULE 
HHH HERE EK EERE 





kk 
* OK 


OEVICE MANIPULATION 
HKEERE 


AND WRITE-TO-OPERATOR ROUTINES 


NOTE-— 


THE DEVICE MANIPULATION 
ROUTINES ONLY APPLY TO 
SEQUENTIAL ACCESS DATA SETSe 
DEVICE MANIPULATION REQUESTS 
FOR DIRECT ACCESS DATA 


*#¥GD * 


SETS ARE IGNORED. 


te ee a 8 Te SS Se 


BACKSPACE 


| 


FBKSP Vv 
HEKHEOHOD HHEEHHHKERE 
* IMPLEMENT * 
* BACKSPACE * 
* SOURCE * 
* STATEMENT * 
* * 
* * 


KEE HHEHEEHHEEHKEE 


| 
{ 
| 
| 
| 
bl >= LOAD #K 


STOP 


FSTOP Vv 
HHH HHHD HH HHH HEHE 


* IMPLEMENT * 
* STOP * 
* SOURCE * 
* STATEMENT * 
* % 
HHEKHEHEKKHKHHKHEKKE 


Ce ee 


HHH SD HHH KHHEKHE 
* To * 
* IBEXIT * 
* * 


HKHKKKKHKEHH KEKE 


* B3* 
* * 
* 


Vv 
HEKHED IHRE RHEE HE 


* DETERMINE * 
* TYPE OF * 
* DEVICE * 
* MANIPULATION ¥* 
* (SEE NOTE) * 
MHEG KHKEKKREKREKHHRKEKE 


REWIND 
FRWND 
HHH HD BH HEE 


* 


IMPLEMENT * 
* REWIND * 
# SOURCE * 
* STATEMENT * 
* *% 
HEHEHE HRKRKKEHREKKEEKHREHE 


—— 


HEHEHE FHKE M RH EEEE 
* TO * 
¥ MODULE * 


HEE EKHEEHHHREHE 


WRITE TO OPERATOR 
HEHEHE 
#G2Q * 
* G3* 
% % 
* 


{ 
| 
{ 
Vv 
HEHEHE GZREHRKHHHKHHE 


+ DETERMINE * 
* TYPE OF * 
—__ WRITE TO * 
* OPERATOR * 
* * 
HKHREHHEH HEHEHE HHH HEHE 
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END FILE 


FEOFM v 
KHEEKEDG EHKEKEKKERKEKE 
* IMPLEMENT * 
* END FILE * 
* SOURCE * 
* STATEMENT * 
* * 
% * 


KHKKKHEKKEKKEKHEE 


PAUSE 


poeeepeeee 


| 

| 
FPAUS Vv 
KHHHEYGCHKKEKHKHKEK 
* IMPLEMENT * 
* PAUSE * 
* SOURCE * 
* STATEMENT * 
*% * 
* * 


KHHRAKKHKHKKEHHHHE 


me ee 


HEHEHE JG RH KKKH HEE 
TO 
LOAD 


MODULE 
HHH KH HH HH EH HEH 


me 
* OK OK 
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WRITE USING 
NAMELIST 
HH HHH 
¥G2 * 
* ES* 
x * 


<a 


HHKHHES HHH HHH HHH 
* FWRNL * 
HK HH KH HH HK 
* IMPLEMENT * 
* WRITE USING * 
* NAMELIST * 
HHH HHH HE HHH 


Peat 


HHL SHER HEHE 
* TO * 
* LOAD * 
* MODULE * 


HKHHEHHKKHHEKHKKHEK 
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Table 16. THCFCOMH Subroutine Directory 

Seana ee ETE We REPORT oD SN ey ae POS SERN RP POEM Eo ren Oy yO eer at RS Pe ora Ra A OE Ne Re ae OR ee Ne Sen A ey a 
| Subroutine] Function | 
|--~-------}~---~-----~-------~~---------------------~------------------------------------ { 
| EXCEPT |Checks for presence of END= parameter, and passes control to the load module| 
| | if present. 

| FENDF |Closing section for a READ or WRITE requiring a format. | 
| FENDN |Closing section for a READ or WRITE not requiring a format. [ 
| FEOFM | Implements the END FILE source statement. | 
| FERROR {|Checks for the presence of the ERR= parameter, and passes control to the] 
| | load module if present. | 
} FIOAF {I/O list section for list array of a READ or WRITE requiring a format. | 
| FIOAN }I/7O list section for list array of a READ or WRITE not requiring a format. | 
| FIOLF }I7O list section for a list variable of a READ or WRITE requiring a format. | 
| FIOLN JI/7O list section for a list variable of a READ or WRITE not requiring af| 
| | format. | 
| FPAUS | Implements the PAUSE source statement. | 
| FRDNF |Opening section of a READ not requiring a format. | 
| FRDWF |Opening section of a READ requiring a format. | 
| FRWND | Implements the REWIND source statement. | 
| FSTOP {Implements the STOP source statement. | 
{| FWRNF |Opening section for WRITE not requiring a format. | 
| FWRWE jJOpening section for WRITE requiring a format. | 
| IBEXIT |Closes all data sets and terminates execution. | 
| IBFERR [|Calls IHCTRCH to process terminal object-time errors. | 
| IBFINT |Processes program interruptions. | 
| FBKSP PARDESCReS the BACKSPACE source statement. | 
pat RO ce epee! WED sea te neta eee dp et re NIT EO re nes PERE NOI SADT ROR MAE ean Sp Eco EEN PTSD ALN Yel PY sa aD ie DE Ra Re A 4 
Table 17. IHCFCVTH Subroutine Directory 

aS hh a a a a nat ee es ; 
| Subroutine | Function | 
FCVAI |Reads alphameric data. 
| FCVAO }Writes alphameric data. | 
| Fcvcr |Reads complex data. | 
{| Fcvco |Writes complex data. 
| FCVDI |Reads double-precision data with an external exponent. | 
| FCVDO |Writes double-precision data with an external SxPenenes 
| FCVEI |Reads real data with an external exponent. | 
| FCVEO [Writes real data with an external exponent. | 
| FCVFI |Reads real data without an external exponent. | 
| FCVFO |Writes real data without an external exponent. | 
| FCVGI |Reads general type data. | 
| FCVGO |Writes general type data. | 
| FCVII |Reads integer data. | 
| FCVIO [Writes integer data. | 
| FCVLI |Reads logical data. | 
| FCVLO [Writes logical data. | 
| FCVvZI |Reads hexadecimal data. | 
| FCVZO {Writes hexadecimal data. | 
ae ee Bp ces es Ona eres cee es DLE ee ta As Ne I ny MeO ETN Re Te Lee Ee AEE ee See aTe eSeeeR E J 
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Chart G3. 


INITIALIZATION 


¢ 
‘ 


FINIT 


ee 
* * 
*  DECODE DSRN- ¥* 
*AND BUILD UNIT 
* BLOCK (IF * | 
* NECESSARY ) * | 
HHH HEE HEHEHE HEH | 

* 





| 
| * 
Vv 
HHH HEED 1 HEHEHE EE 
*OPEN DATA CON— * 
*TROL BLOCK FOR * 
*DATA SET IF NOT* 
* PREVIOUSLY * 


* OPENED * 
HH HEH EK ME EH EE 





o* 
Ke 


DCB 
OPENED 
*.PROPERLY 
He * 

He ot 

* YES 


Vv 
ee ee ee ee 
. * 
* DETERMINE * 
* RECORD FORMAT * 
* AND BLOCKING ¥* 
* : 
ee ee ee ee 


l 

Vv 

o* 

G1 

o* Is 

e%* CURRENT 

*%e OPe DEVICE 
%e MANIP. 
Ke 

Fe 


Ke 
Fe 

#. YES 
———; 
o* | 
o* { 
o* Vv 
* NO 


HEHEHE J] RHMKKKKKEKRE 


* READ * 
A 
* BLOCK * 


HHEEGHKEKHEKRKEKE 


cm 


HHH | 
* * <I 
* K1 *-> 
* * j 
HEE | 
Vv 
HEHEHE 1] RR KKKKHKRER 
* PASS CURRENT * 
*RECORD POINTER * 
* AND LOGICAL * 
* RECORD LENGTH * 
* TO IHCFCOMH * 
HHH EEK HH KH HEHEHE 


FRE 


! 
bs 


HKRKE 

*64 

* B2 
* 


IHCFIOSH OVERALL LOGIC 


HEHE ADHERE RES 
* * 
* FROM * 
* IHCFCOMH * 
HHH EHH HEE HEH 


¢— 





KHRHKEB AEM HR HH HE 
* x 
* DETERMINE * 
* GPERATION * 
* TYPE * 
* * 
HHH HK HH HK HEH HHH 
| 
DEVICE 
READ WRITE MANIPULATION CLOSE 
1 a ae ae ae ee ase Pare eet 
H v | | 
AD oVe FRITE o%e FCNTL Vv FCLOS Vv 
c2 He C3 Ke HEHEHE CG MEK HRHEE HME CH HHH MEEKER 
o* ANY *#.e o* He * * * * 
e* MORE RCDS *. YES o* OUTPUT *.e NO * CHECK * * CHECK ANY * 
*e-THIS BLOCK TO«.*——-4 Re BUFFER o*¥——} * STATUS OF +¥———_ * OUTSTANDING ##<K-—-4 
*.BE PROCES«* | Ke FULL o* | * UNIT * * INPUT OR * 
*%e SED o* | Fe o* | * * * OUTPUT * | 
Ke ok Vv Ne o% Vv HHH HH HH HH TE HH HH Vv HH HHH HEHE KH EH HHH HE | 
* NO HHH * YES HHH HHH 
* * * * HHH * * 
* KI * *% KI * * * * Cl * | 
| * * | * * * D4 *#—, * * | | 
| HH HH { HKEH * * ( HHH | | 
| HH HH Vv Vv 
Vv Vv oX*e eoX%e 
HHH KO DEH HHH HK HH HHEKKO ZH HHH RHKHHEK D4 He DS Ke | 
* READ * *¥WRITE CONTENTS * o* ee o* Fe 
*NEXT BLOCK INTO* * OF THIS BUF- * EGF .* DETER- *. REW o* LAST *. NO | 
* THIS BUFFER. * * FERe SWITCH * c—— * e MINE OP- « *+———_—_— %e OSRN 2 ¥——— 
* SWITCH BUFFER * * BUFFER * | ¥e mee eal o* | Ke o* 
* POINTERS * * POINTERS * | *.TYP o* | Be o* 
HK HHH KH HEE HK HE HHH HHH HH HH HH HHH He o* | Ke of 
| | | * BKSP | * YES 
| | | | | ee 
| | | | {| _*Ga * 
i | | —>* B2 * 
{ | x * 
i | { ! | HHEKH 
HRKHHED HEH KHHRK EE HEHKHEE ZHHKKHHEH EK | HHRHMAE GK HEHEHE KHHKHEKES HHEEHHHHEE 
* * * * j * ISSUE * | * * 
* CHECK RESULT * * CHECK RESULT * | * BACKSPACE- * | * ISSUE * 
* OF READ INTO * * OF WRITE FROM * | * INDICATE * L—_>* CLOSE |, * 
* OTHER BUFFER * | * OTHER BUFFER * * DATA SET * * WITH REREAD * 
* * | % * | * TYPE * * OPTION . * 
HHH HEHEHE EEK HERE Vi KKK HEHE EEE HEHEHE j HEE HERE HEHEHE HHH HE HHH 
HHH 
x¥G4 * HEH HHH 
* Box *#G4G * #G4 # 
* * v { t_>* Ba * t->* B2 * 
*% HEHE * * % * 
¥G4 * | HEH HHEK 
* Bor | 
HHH KHKE DEKH HEHEHE % | HHEKKEG KH HKKK EKER 
* * * * * 
* ISSUE * | * ISSUE CLOSE * 
* ME SSAGE x, >* (TYPE=T ) * 
* IHC219C * Vv * WITH LEAVE * 
* * HHH * OPTION * 
HHH HEHEHE EHH HK *G4 * HHH HKHE HEHEHE HEHE 
* FOQ* 
% % 


% 
* 
* 


* 
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Vv 
HHHHH GE KKK KH HHH 
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* FREE 170 * 
* BUFFERS * 
* FOR THIS * 
# DATA SET * 
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HEHEHE 
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* FORTRAN LOAD * 
* ‘MODULE * 
RK KK OK 


CONTINUES 
NORMAL 
PROCESSING 
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* TO STATEMENT * 
* SPECIFIED IN 
* FRR PARAM * 

RR REE EEE EE 


248 


EXECUTION-TIME INPUT/OUTPUT RECOVERY PROCEDURE 
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# Ks eee ee a Bs 


*G4 * 
* B2* 
* x 


* 


eX 


B2. *, 
.* * 


.* HAS ° 
*> AN EOF BEEN 
*. READ 


* 


° . 


NO 


* . 
.* I/O ¥*, 
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* * 
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4 AGCK 3 oR EE OK 


* 

* FORTRAN LOAD ¥* 
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* GET FIRST 

* UNIT NUMBER 
* (DSRN) FROM 
*PARAMETER LIST 
. 3 


KOK OK ok ok Ok 


MMMM ee we 


< ae 
| 
HHEEKHHCZRHKKKHKHKE | 
* INSERT UNIT * | 
* NUMBER'S * | 
*PARAMETER LIST * | 
*ADDRESS IN UNIT* | 
*# ASSIGNMENT TBL * | 
HKHKHHRHHHHEHHEKEHHRKKHE ( 
| | 
| 
| | 
| | 
, | 
Vv 
o%. | 
D3 He HHEHXKDGHRKHKHRRKKHKE 
o% He * GET NEXT * 
e* LAST UNIT *e NO * UNIT NUMBER) * 
*#. NUMBER IN «*——————>* (DSRN) FROM * 
# «PARAMETER. * *PARAMETER LIST * 
*eLIST o* * * 
He oo & HRHKHKHHHHHKHKEKHKHHKHEHK 
* YES 
| 
| 
| 
| 
I 
Vv 


HHKHKE GH HER HEHE 
x * 
* ESTABLISH * 
*#LINKAGE BETWEEN* 
* THCOIOSE AND *% 


* THCF COME * 
HKHEKEKKHKM KEKE HHH HEN 





Vv 
HHEKKE FREER HKRKEE 
* FORTRAN * 
* LOAD # 
x MODULE * 
HKRHKHKHKHKHKH HHH HK 


CONTINUE NORMAL 
PROCESSING 


Appendix F: Object-Time Library Subprograms 249 





























Chart G6. IHCDIOSE OVERALL LOGIC —- FILE INITIALIZATION, READ, WRITE, AND TERMINATION 
SECTIONS 
DASTRA o*, 
A3 He 
HRHRKEEADHHEHHEKRKEK o* He 
* * e* DETERMINE *. 
* IHCFCOQMH + >*e OPERATION o* 
* * *e TYPE 0% 
MEM HMMM HM HHH HHH He o* 
%e ot 
WRITE SECTIGN 
FILE INITIALIZATION READ (PRIMARY ENTRY TERMINATION 
SECTION SECTION V FROM IHCFCOMH ) SECTICQN 
| 
DASINIT oVe DASREAD Ve DASWRITE Vv DASTERM Ve 
Bl Ke B2 He HHRKEKGHZFMKKHHKRHKHE HKHHERHKEKBYERHHMRHH HHH KE BS he 
o* %e o* Ke * * e* ANY #e 
YES .* PREVIOUS *. 0% 1s *. NO * OBTAIN * * * e*PENDING I/O*e NO 
r—*e OPERATION «* r—>*e RECORD IN e* >* ADDRESS OF * WRITE A RECORD *. OPERATIONS «%*——-4 
¥e o% | *. BUFFER o* * INPUT BUFFER ¥* * * %e 2% { 
He o* %e o* * * ke e* { 
Vv He oo € %e o% ee ee ee ee HKMMHKHHKHMH HH He ot 
HHH * NO HERE * YES | | * YES | 
* * | * * | | HHH | SECONDARY | 
* KG * * BQ * | | * * ENTRY | | 
* * * * | | * C4 *—> | 
HHHK HHH | <—-----_-—_— | % * | | 
! v | | HHH | l 
o%. | V V Vv | 
HHEKREC 1 KREMER HHEKRE C2 He HRHKKECZTHRKHKHEKRKREHRE HHREHKECGHHEKHHRKHKE HHMHKCHKKAKKHKKKSE | 
*CONSTRUCT UNIT * o* He | * INSERT RELATIVE* * OBTAIN NEXT ¥* * * 
* BLOCK,»INSERT ¥* YES e* IS THIS *e | *RCD NOe OF RCD * *QUTPUT BUFFER, * * WAIT * | 
* ADDR OF UNIT * -——* e A FIND o% | *TO BE READ INTO* * BLANK GR ZERO * * FOR I/O * 
*BLOCK INTO UNIT* | *%. REQUEST .* *  BLKREFA OR * *DEPNDNG ON DATA*® * COMPLETION * | 
*ASSIGNMENT TBL * | %e o* | * BLKREFB FIELD * * SET FORMAT * * * 
HHRKHRHEKHRHEKEKHERRKKE | Ke o* | HH HHHKHHRKRHMHKHKEKHHEK HME KRKHHHHHEHEHHHHH HRHHHHKKHKHKHHKKHRKHHEE | 
* NO | | | 
| | | | | | | | 
l | | | | | SS 
| | | | l I 
| I Vv Vv Vv 
HRHEKED ] HHERHKMHEKERE | HHHEKHED DPD HKKHKHHKEE | HKHEKEHKED ZREHRKKEKRKHHKKEE HEKKEDG RHRKKHHKHKE HHHEHK DS KRHHHKEHHEK 
* READ JOB FILE * | * * * INSERT RELATIVE*® * * 
* CONTROL BLOCK * * CHECK * | * * *RCD NOs GF RCD * *CLOSE DCBS FOR * 
* (JFCB)»INSERT * | * FOR 1/70 * READ A RECORD * TO BSE WRITTEN * * DIRECT ACCESS * 
* BUFNO VALUE ¥* | * COMPLETION * * * *INTO BLKREFA OR* * DATA SETS * 
* INTO DCB * | * * * BLKREFB FIELD * * * 
KHEEKRHKKKKHHKRHKKRHHEKEE HRHRKRKREHEEKKKKKEHKHEE HKMHKEMKKKRHKHKHHKE HHMRHKKHHHRKKHHKHMRHRKE HHRKKKKMHKEKHKHKHHRKRKE 
| | | | | 
| | | | | 
| | | | 
| | 
| | I i | 
| Vv | 
Vv | Vv o%e V 
HRHEKKE ] RHKKEKEKEE HRHREKEEL SD HKKKKKEKEE HRUHKEKKRE BREAK KKRAKREK E4 He HRKHKKESRKEKKKKHEE 
* * | % PLACE * * * o% He * FREE MAIN * 
* EXAMINE * | *BUFFER POINTER * * PLACE BUFFER * IHCFCOMH e* ¥e * STORAGE * 
*# JFCBIND2 FIELD * | *AND BUFFER SIZE* * POINTER AND *<———————*. DETERMINE o* * OCCUPIED BY * 
* IN JFCB * * IN REGISTERS * { *BUFFER SIZE IN * * ENTRANCE o* * UNIT BLOCKS * 
* # { * * | * REGISTERS * He o* * * 
HEH HKEKHKHKEKRKEKRREKER | HREM HREKHKRKKHERHHRKKE Ce ee ee ee ee ee Ke ot HRKEMKRHKHKHKKKRKHHKHH 
| id | 
| {FILE INITIALIZATION | 
j i______-____» | < | SECTION | 
l | 1 | 
I | I __—_———_—_—__——_——_-_————> | 
Vv A | 
o%e Vv o%e H | 
Fl %e HKHHHREE DEH KEKRKKREE F3 *, KRHEHEKEKE GRHHKRKRKHAEE | Vv 
o* He *GET ASSOCIATED * o* ¥e * UPDATE * KEKE SHEER EEE 
°* NEW DATA *e NO * VARIABLES * e* IS THIS *e YES * ASSOCIATED VAR * # # 
*. SET TO BE .*——y * ADDRESS AND * ——>*. A FIND o* >* SO THAT IT * > * THCFCOMH * 
*#. CREATED .* | * CURRENT * *%. REQUEST .* * POINTS TO RCD * | * * 
Ke o* | * RECORD NUMBER * ¥.e o* * JUST READ * | HHH HHH HR HH 
He ot Vv HREEMHKRNKHHHHKEHRKEKEEN Ke a ¥ HHEEKRKRHKEKRHEHKKHKHKHEHN | 
* YES HERE * NO | 
x * " | 
* KD * 
* * 
HH HH EERE | 
Vv 1 | 
ote Vv 
Gi He HHREKEGP HHEKEKREKE HEHHKKGZHRHEKHKKHHEE HEKKEGCGEHHEKHEKKHERKE | 
o% He * * * INSERT RECORD * * UPDATE * { 
o* *. YES * OPEN * * NUMBER INTO * *ASSOCIATED VAR * { 
*.WRITE REQUEST e«* >* DCB FOR NEW * f—>* RECNUM FIELD * *SO THAT IT PNTS*————4 
He o* * DATA SET * | * OF UNIT * * TO NEXT RCD * 
He o* * * | * BLOCK * * IN DATA SET * 
%e a & Ce ee ee HKHHEKEKREKHKEKKHMRHHEHHEE HHRKHMRHHHHHRKKRNHRKHE 
ae | | 
| 
| | | 
| | | 
V I | 
o*%e V7 V 
H1 He HRHEHKHHHD HHH HECK H HRHEKHEH TRH KRHM HEHEHE HHHKHHGAKRHHEKHKHEKEE 
o* %. * CREATE * { *INSERT ADDR OF * *INSERT ADDR OF * 
FIND .* READ Ke *AND FORMAT NEW * | *DECBA SKELETON * * BLKREFA INTO * 
re OR FIND o* *DATA SETsUSING * * INTO CURBUF ¥* r—>*DECBA SKELETON * 
*#. REQUEST o«* * BSAM WRITE * * FIELD OF * * IN UNIT * 
He o* * MACRO * * UNIT BLOCK * * BLOCK * 
: o* eee eee ee ee ee Ce ee ee ee ee HHH HM HEH HHH HEHEHE HK 
| i | | | | | 
{ | 
| | | | | | 
| 
| | | { | | 
{ | | | i 
Vv V | Vv | v 
HEHEHE LHRKHKERREE HHH JDEKKEKHHHKE | HEHEHE J ZRHHHE RHEE HRHHKH JGHRHKKKKHHHH 
i] * * * * | *INSERT ADDR OF * | *INSERT ADDR GF * 
* * * CLOSE * | *DECBB SKELETON # | * BLKREFB INTO *#* 
*INOICATE ERROR * * DCB FOR DATA * * INTO NXTBUF * *DECBB SKELETON * 
* * * SET * | * FIELD OF UNIT * | *% IN UNIT BLOCK * 
{ * * * * * BLK IF 2 BFRS * * IF TwO BFRS * 
| HKEEKHKKEKRKHEKRKREKREHEE HKHEKEKKREKEHEKKHEKKHEKEE | HRHEKKHKKHKKHHHEKKHKHKHH | MEEK KHHKRKHKHEHEHRKEHK 
| | HERE | | | HHEEE 
>| * ee | | | * * 
| * K2 *—> | | * K4 *-—>] 
* * | | * * j 
HHH KHER Vv 
Vv | Vv | o%e 
Vv REKKEK OHHH HHE KEKE | HEKKHK BRK MH HHRHE j K4 He 
HEHE 1 HEE * OPEN DCB FOR * *INSERT ADOR OF * | o* He RHEE 
* * * DATA SET FOR # | * 1/0 BFRS * o* *e YES * * 
* THCFCOMH * * DIRECT ACCESS * * INTO DECB x 4 *eWRITE REQUEST e* >* C4 * 
* PROCESSING * *SKELETON(S) IN * ¥e 0% * * 
HHEKKMKHKRKKEHRKREREE * * * UNIT BLOCK * Xe ex HUH 
HRHEKRHKKEKRHKREKERHKE HEKMKHKHHEHKRKRKRKRKKE He oF 
* NO 
Vv 
HHH 
* * 
* BQ * 
* % 
HHKHHX 
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[~---- 


| Routine 


ERP QUEDA ERED CEN EY AERP cee | 


| FCLOS 


| 
| FCNTL 


| 
| FINIT 


| 
| FREAD 


' neal 
i 
1 
{ 
! 
1 
i 
t 
[ 
t 


Table 19. 


.--------- 


| Routine 


IHCFIOSH Routine Directory 


Pe ep a ea a eg ee Se ay Te em eT 1 
| Function | 
“|CHECKS double-buffered output data sets. 2 (ti (ai‘Cer”;*~*~*~:C~:S 
ee device manipulation requests. | 
i eaiees unit and data set. | 
Sepeeee read requests. | 
feeey ec write requests. 


IHCDIOSE Routine Directory 


PEO er tee ee ea egy I FO Ce eg ag ee ee ey Oe ep Pe a Ne ot eee, A a Te Sep oT 1 


Function | 


SS OS AES AED END PLS SES ED OS EES A ES ED NS ES AS AS A AS TY AED ED ATS NS END AD OD SER LS AED NUE ND AED ID AONEY SOD ID ED SOE SEE OUND UE SRE EE AED ID OUTS OT ED AR ANE GY SAY AT CE SU SRT IE EY OY EY SY SE ES NS LY SE RTD RID IO SEY I 


Processes DEFINE FILE statements: enters address of parameter lists into| 
unit assignment table, checks for redefinition of direct access unit| 
numbers, and establishes addressability for IHCDIOSE within IHCFCOMH. | 

| 

Constructs unit blocks for non-opened direct access data sets, creates and| 
formats new direct access data sets, and opens data control blocks for| 
direct access data sets. | 


+ — 


Reads physical records, passes buffer pointers and buffer size to IHCFCOMH, 


and updates the associated variable. 


Checks pending input/output operations, closes direct access data sets, 
frees main storage occupied by unit blocks. 


Determines operation type and transfers control to appropriate routine. 


| 
| 
| 
| 
and | 
| 
| 
| 
| 
| 


Writes physical records, provides ITHCFCOMH with buffer 


the associated variable. 
AS te AONE Ge ane EN ar eal PONE AA PERE Me OO ny ONO Re Ek ETS ARS MLE SP TOL Sere ae er Am ot eee ae eT PEEL Oe J 


Space, and updates 


as 
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THCIBERH OVERALL LOGIC 


HKKEAZHRHEHREKREKEE 





* FORTRAN * 
* LOAD * 
* MODULE * 
HEH KK KK HHEKHHHEEK 

| 

| 

Vv 
HHERKH BY RKKHKHKEEE 
* * 


*OBTAIN INTERNAL* 
*SEQUENCE NUMBER* 
* C ISN) * 
% * 


KHEKRHRKHRAKRKHRHRHREHKE 


fle. 


HHEHK HC ZRH KH KHHEK 
* 


* 
* CONVERT ISN * 
* TO DECIMAL * 
* FORMAT * 
* * 
% % 


HHEKERHKHHKKKKKHKEE 


| 

| 

i 

Vv 
HH KHKHOD ZUNE HEN EEE 
* BRANCH TO *% 
* IHCFCOMH TO #* 
*# HANDLE THE * 
* WRITING OF * 
* ERROR MESSAGE * 
HHH KHIR HHH KH 


Besse 


HHHKE ZH HEHE HEH 
IBEXIT RTN 
OF 


IHCFCOMH 
HHH HHH HHH HEH HH 


oe ok Ok 
ek ok 


IHCIBERH IS 
ENTERED VIA 
CALLING SE- 
QUENCES GEN- 
ERATED AT 
COMPILE-TIME. 


Form Y28-6638-1 
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eCchart G8. ERROR MONITOR OVERALL LOGIC (Part 1 of 
eee | 
* * 
* AQ * 
* * 
feo RK 
LHCERRE 
KKKKAD] RKKERREKEE TET EVM P eer err Ss) 
* * * PRINT * 
* INDICATE * *TERMINATION DUE* 
* ENTRY FOR * * TO DUPLICATE * 
* SUMMARY * * ENTRY * 
* * * MESSAGE * 
ORR RR ORR Rk SOtOR RGR aR kok Kk 
+k 
*G8 * 
* B3 *—> 
* * 
eK 


ERROR MONITOR 
KEE ET EEK ER REE 
* * 
*SAVE REGISTERS * 
+ AND LINK * 
. SAVE AREAS x 


et KE RK OK 


RCL ERK EEE EEK 
* 


4 ICK Bk to a 


* 
* PRINT 

* MESSAGE FOR 
: THIS ERROR 
* 


eR RR a 


HHH SE 


CR ARC 3 ORR RR AE 
* 


* * 
* MAKE INITIAL #* * * 
* CALL TO FIOCS * * GIVE * 
* (GET BUFFER * * TRACEBACK * 
+ ADDRESS) * * * 
ek a oo ok ok oo KK Kk aR RR kak ok kk ka kok 
Pas a Fe 
D1 ¥*. D3 *, 
.* - * * Ke .* io 
* ENTRY *. YES #* * .* FREE *, 
*.FOR SUMMARY ,.*-~--->* AS * *. BUFFER AREA .* 
*, .* * * *, * 
*, * KE *, .* 
*, .* *, O* 
* NO * NO 


CEREAL] RREEEREKEK 
* 


* 
* GET ERROR * 
* NUMBER * 
* * 
* * 
* * 


REE KKK KK KKK KK 


= 


* 


NTR ~* 
. .* 


eo ee 
* NO 


KHRKKKY] KKK EERE EF 


-* - YES 
*. DUPLICATE .*----—>* A3 * 
ENTRY * 


eR ED RRO ae 


* TERMINATE JOB * 
pl VIA IBEXIT - 


OR ROR GK kok 


a*, 
KAR DEE ERK KKK F3 *, 
* * .* * 
* GET EXIT * .* 
—--->* ADDRESS IF *————_—_——— >*, I/O ERROR .* 
* SPECIFIED * *, (218) ~* 
* * *, a 
ee fe ok ko EK *, C* 
* NO 


REE 
* * 


* 
KK 


* SET ENTRY # 
* SWITCH * 
* AND * 
* STORE * 
* ENTRY NUMBER + 
KKK KK KKK RK KKK 
*, 
J1 *, HHEKE TQ RE REE AEE 
.* *, * PRINT MESSAGE * 
.*° ERROR ~*. NO * THAT ERROR * 
*> NUMBER IN .#-------->* NO. IS NOT  #—------ 
*. TABLE .* + IN TABLE * v 
° « * * KKKKK 
*. Ot KER AKEA EEE EERE EES +469 * 
* YES * G2* 
* * 
* 


HREKKK LT ERERE EEE ES 


GET TABLE * 
ENTRY FOR * 


THIS ERROR *-———— 


* 
* 
* 
* NUMBER * 
* * 
* 


HHKKKKKERKKEKKKEKE 
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2) 


Ae te a DL kK KK EK 
* * 


* ISSUE * 
>* FREEMAIN * 
* * 
* * 
RO RRR AOR ROR OR ROR EE 


* KAR EY RK EK KEK EE 


* * 
* PRINT * 
* HEADING *<-—--—— 
* * 
* * 
CR tk ROR OK Ek 


ook ke FL oe oO KE EK 


* INDICATE * 
* BUFFER AREA * 
>* FOR MESSAGE * 
* MUST BE. * 
* REED * 
eee re re See ees Ss 


***X 
* * 


YES .* . 
* C5 *<----*.MORE ENTRIES .* 
* * * * 


*KEX 


* KKK 


%* He 
DP 
nn 

ee 


* ek 


HEKKADD RK RK EK EK K 
* * 


* GET ADDRESS * 
* OF LAST ENTRY * 
* IN TABLE : 


2K RK KK KOK 


V 
4K BS kk Rk Gk 
* * 


* GET * 
* NUMBER OF * 
: ENTRIES : 
FR FOR RO Rk tk 


4K 
* * 

* C5 *-> 
* * 

4K 
ORK C5 RR 
* 


* 
* GET NUMBER * 
* OF ERRORS FOR * 
* THIS ENTRY * 
* * 

* 


RE FOR ER RE 


V 
*. 
D5 *, 
a* *. 
.* ANY *. NO 
*. ERRORS OF .*¥---- 


* THIS TYPE.* 
*, . 


*,  * 
* YES 


V 
2 Fie 
E5 *, 
* * 


NO .* HAS  , 


—---*.HEADING BEEN .* 


*. PRINTED .* 
* * 


eR BS RR ERR RE 


* PUT ERROR * 
* NUMBER AND * 
* ERROR COUNT ¥ 
* IN MESSAGE . 
* 

KKKKKKKKKKAK KK KKK 


KK KKEK GOK KKK KE RAKE 


PRINT LINE 


HH HHH 


* 
* 
* 
* 
* 
* 


KKK KKK KKK KKK KK 


KEATS RRR ER A EK 
* * 


* DECREMENT 
: TO NEXT ENTRY 


* 


* 
* 
* 
* 

KKKKKKKKKKK KKK KEKE 


* 


* 
* 


* NO 


EKKE KOE KE KEKEESE 
* * 
: RETURN * 


KEKE ARE ERE RE 
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eChart G9. 


ERROR MONITOR OVERALL LOGIC (Part 2 of 2) 


KEEKK 
*G9 * 
* Al* 
«x * 
* 
*, 
Al : HKREADD EEEKEKEKKE 
.* I/O * * eeKK 
* ERROR *, YES * SET * * * 
*., EXIT ADDRESS .¥*¥-—-—-——-—— >* SPECIAL EXIT *--~-—>* Cl #* 
é EN 7 * SWITCH * * * 
. eK 
x eee TCT TTT e re + ST 
* 
o*, 
. HKKKEBQEKRERERE EAE 
*¥ *, * PRINT * 
-* CONTINUE *. NO * EXECUTION * 
*, (BASED ON. *#—~—-—--—-—— >*TERMINATING DUE*—-——--—~—— 
*,. COUNTS) .* *TO ERROR COUNT * 
: > * MESSAGE * REKEK 
Jad aR a RK A RK E *G8 * 
* YES * B3* 
** AK * * 
* * * 
* C1 *-—> 
* * 
tk 
*, 
KRKEACD ARERR KKK HEKEKKCZ RAK ERK K 
* PRINT * * * * * 


* GET ADDRESS 


* 
>* AND LENGTH OF aes 


* PRINT MESSAGE #* 


—-~--—>*AND SET MESSAGE* 


*, COUNTS e * MESSAGE * PRINTED * 
. . * * * INDICATION * 
a ere ere ee fe ee ee eS ee ee eS ee SS 
kEKE 
* * 
* FL * 
* * 
eK reer 
a*, 
D1 *, HAKEADD KR KKKKEEEKE KHKHEKD 3 ERRAEKKHEEE 
.* *. * + : * 
.* PRINT *,. YES * GET ADDRESS ¥* * 
*, BUFFER ~ ¥-——————— >* AND LENGTH OF +_—----->+ PRINT BUFFER #* 
* CONTENTS -* sCURRENT BUFFER : - 4 
*, Ct rer erer errr re HERA AKER EAEE KES 
* NO 
stan oS a aaah aa tt ee ne paces — 
.*, 
El x, HAKKAR ED EEREKK EERE RRKEAR FEREEAERHKES 
.* *. * * * * 
«* TRACEBACK *. YES * REMOVE ONE * *— ¥— 4— F— 4— ¥—K-—F—* 
*. REQUESTED .*-—~—-—-—~— >*SAVE AREA FROM *-—~—-——-—— * 
*, ~* * CHAIN * : CALL TRACE : 
— RARE KARA AEE EK EE HERE KEE KERR EEE 
* NO 
#EKE 
* * 
* FL *—> 
* 
4444 
ao es 
3 KEKRAPQERREEREEKE 
—e *, * * 
* USER *. NO * SET * 
*, EXIT - *¥-—~—~———— >*RETURN CODE TO *--— 
* ,REQUESTED. * * QO. * 
*, _* * : * 
*. OF HARKER KEKE EE HE EEE 
* YES HEE 
HEKE * * 
*G9 * * * 
* G2 *—— * * 
* * _ KEKE 
eek i 
-*, 
RARE CLKKAEERKERE G2 x, KRKEEG KEKE KEK KEE 
* * .* . * * 
* SET * * FREE *. YES * * 
*RETURN CODE TO * *,. BUFFER AREA . *~—--~—--——— >*ISSUE FREEMAIN * 
* 1 * *, * * * 
* * *, .* * * 
HK EEE ERE ERE *. Ct eee ETC Lee eT Les eS 
* NO 
| a a a 
o*, 
Seer Lee eeey sees H2 *, HEKEEA3 KEK KERERER 
* . * * 
+ *—*— be ded cei .* TAKE *. YES * RESTORE USERS * 
*. SPECIAL EXIT .*#-------—— >* REGISTERS AND * 
#CALL USER EXIT : ¥*, .* *TURN OFF ENTRY * 
* *, .* * SWITCH * 
EET E RT rrr erro a HERRERA EE EERE RS 
* NO , 
#e4K 
* * 
* GY * 
* * REET QD ERAEEEEEEE 
EK * * EREAT3 EEREEKEEE 
* TURN + + EXIT * 
* OFF ENTRY + * TO SPECIFIED # 
* SWITCH * * * 
* * HERES RE REE 
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HEKKEREKEAR ERE EES 


EREEK HREREEEEE 
* Ad * 


* RETURN * 
* * 
RKEKKKKKEKEEERE 


KHAKK EY ERK EK KKK KE 
* 
* RESTORE 


>* ONE SAVE 


* 
* 
* 
: AREA TO CHAIN . 
KRAKKKKKKEKKKHKKEKE 


KERKA PY REREEE EEE 
* * 


* * 
* REINITIALIZE *-—— 
* FIOCS + | 
* * 
HREKKAREERERK EKER 
KEAK 
* CHK * * 
* * * FL * 
* GY *—_.. * * 
* * | Pes 
eeKK 
G4 *, 
.* *, eR RE 
-* MESSAGE *. NO * * 
*, PRINTED . ¥-—-—-—>* G2 * 
*, .* * * 
*. .* eEKK 
*, C* 
* YES 
o*. 
H4 * HR CR ED eR ER OR 
7 *, * PRINT * 
.* USER *, YES * MESSAGE * 
*. EXIT TAKEN. *~-~—---—-—-—>* INDICATING USER* 
*, o* * FIXUP * 
x, _* * * 
x, KEKE EKER EERE 
* NO 
eR 
* * 
* G2 * 
EREKE TYREE KK CERES * * 
* PRINT * Pere 


* MESSAGE * 
* INDICATING * 
qT RNpERY FIXUP : 


KKEKKEKKKKEKKKEKS 


xe & 


tne 
QQ) 
i 

+e & 


EX 


e Chart G10. 


r 


ERRSET 
AAA A] RAR RHO AE AE 
* * 

* * 


TOBE REGISTERS id 


* * 
Tee CLC eee eT ere Se | 


Vv 
RAK BK RR 
* * 
* GET ERROR * 
*NUMBER AND SAVE* 
* IT * 


* * 
OR ROR RG oR Ok 
' 


Ok 


* Cl *~> 

* * 

* eK 

NEXT 

HEC] FRR OK RE 
* FINDENTRY * 
k- #- kK KO HH 
* GET ADDRESS * 
* OF ENTRY FOR * 
*THIS ERROR NO. * 
AOR Ke 


Vv 
*. 

DL *, 
-* TABLE *. 


ae ENTRY *, NO 


V 
eee eS eee eee ee eS 


* GETENTRY * 
K- kK kK KR 
* GET NO. * 
* OF ERRORS * 
* ALLOWED * 


Te KK KKK 


o*, 
F1 *, 
o* *, 
YES .* *. 
~~-*, PARAMETER LT ,.* 
*OR EQ TO 0.* 
*, * 
*, * 
* NO 


V 
ARK AG RK ROR CE 
* * 
* STORE NO. OF ¥* 
*ERRORS ALLOWED * 
on TABLE ENTRY : 


ROR ok kk EK RK KK EEK 


V 
*, 
H1 ¥, 
~* NO *, 


V 
TCC CRORE STL eS Se 3 
* GETENTRY * 
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active character: A significant character 
in the interpretation of a source. state- 
ment. Always non-blank except during pars- 
ing of literal or IBM card code infor- 
mation. 


Contains the address portion of the 


current POP instruction. 

ADDRESS (field): A 2-byte item that is 
part of the pointer (indicating an address 
on a roll) and a driver (indicating the 
forcing strength of an operation). 


ANSWER BOX: An item used to hold a true or 
false answer for those POP instructions 
which use or return an answer in their 


execution. 
BASE: A status variable maintained for 
each roll used by the compiler which con- 


tains the beginning address of that roll 
minus 4. 
Base Table: A list of absolute addresses 


from which the object module loads a 
general register prior to accessing data. 


BOTTOM: A status variable maintained for 
each roll which holds the address of the 
last word on the roll containing 
information. 
‘Branch Table: A list containing the 
address of each branch target label and 
statement function used in the source 


module. 


A label which is the 
instruction or 


branch target label: 
target of a branch 


statement. 


Central Items: Another name for SYMBOL 1-3 
and DATA O-5. 


compiler phase: A program consisting of 
several routines written in machine lan- 
guage and/or POP language; each phase per- 
forms a well-defined function in the trans- 
formation of the source module to the 
object module. 


compiler routines: The routines that com- 
prise each phase of the compiler and which 
may be written in machine language and/or 
POP language. 


CONSTR: Contains the beginning address of 
the data referred to by the compiler 
routines. 


GLOSSARY 


control driver: A driver in Polish nota- 
tion to indicate types of statements and 
other control functions. 


CRRNT CHAR: Contains the character (from 
the input statement) that is currently 


e 
Cate ican lianed So a enate dita tect tad aia! 


mM an 
NoAMYy L11OPCUL TU. 


Contains the column number 
called 


CRRNT CHAR CNT: 
of the contents of CRRNT CHAR; also 
the ‘scan arrow’. 


DATA 0, 1, 2, 3, 4, 5: Halfword variables 
(except DATA 5, which is two words’ long) 
used to hold constants used in the source 
module and other data. 


error listing: The display of messages 
indicating error conditions detected in the 
processing of the source module. 


EXIT roll: A special roll used by the 
compiler for maintaining exit addresses 
from compiler routines when a POP subrou- 
tine jump instruction is executed. 


EXTADR: Contains the address of the 
rent “bottom" of the EXIT roll. 


cur-— 


A value contained in the 

order of the 
multiplication 
precede addition 


forcing strength: 


driver which indicates’ the 
indicated operation (e.g., 
and division operations 
and subtraction). 


global dummy variable: A dummy argument to 
a SUBROUTINE or FUNCTION subprogram. 


global _ label: A label used to define a 
program block. These labels may be 
referred to from any point in the program. 


group: The logical collection of informa- 
tion maintained on rolls; an entry on a 
roll. 

group size: The number of bytes of infor- 


mation constituting the group ona roll. 


Group Stats: Information maintained for 
each roll used by the compiler; pertains to 
comparative search operations. 


instructions re- 
body 


heading: Initializing 
quired prior to the execution of the 
of the object module. 


IEYALL: The 
phase Allocate. 


system name for the compiler 
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IEYEXT: The system name for the 
phase Exit. 


compiler 


TEYFORT: The system name for the compiler 
Invocation phase. 


IEYGEN: The system name for the compiler 


phase Gen. 


TEYPAR: The 
phase Parse. 


system name for the compiler 


IEYROL: The system name for that area of 
the compiler which holds the WORK and EXIT 
rolls and the roll controls and group 
Stats. 


TEYUNF: The 
phase Unify. 


system name for the compiler 


indirect addressing: A method of obtaining 
information held at one location by refer- 
ring to another location which contains the 
address of the value in question. 


DIRECT X: Used to contain the address 
needed in the indirect addressing operation 
performed by the POP instructions. 


INSTR: Contains the “operation code" 
tion of the current POP instruction. 


por- 


item: Synonymous with variable. 

jump: Synonymous with branch. 

keep: Indicates the moving of information 
contained on a roll to another’ storage 
location and retaining the original infor- 


mation on the roll. 


LAST CHAR CNT: This item contains the 
column number of the last active character, 
1ee., the active character preceding the 
one currently being inspected. 


A dummy argument to 


a statement function. 


a rere mete 


local label: A label defined within a 
program block which may be referred to only 
within that block. 


MPAC 1, MPAC 2: Two fullword items used by 
the compiler in double-precision arithmetic 
operations. 


A table which holds’ the 
etc., for each variable 
NAMELIST list in the 


NAMELIST Table: 
name, address, 
listed in a single 
source module. 


operation driver: A 1-word variable which 
is an element of Polish notation and indi- 
cates arithmetic and logical operations 
designated in source module statements. 





260 


OPERATOR (field): A 1-byte item that is 
part of the pointer and driver indicating 


the roll used (pointer) or type of opera- 
tion to be performed (driver). 

optimization: The reduction and re- 
Organization of object code for the 
increased efficiency of the object module. 


PGB2: Contains the beginning 
the global jump table. 





address’) of 


A variable length group on a roll; 
number of words 


plex: 
the first word holds the 
exclusive of itself. 


pointer: This item is one element of 
Polish notation used to indicate references 
to variables or constants; indicates loca- 
tion of additional information ona roll. 


Polish notation: An intermediate language 
into which the source module is translated 
during processing and generation of the 
object module. 


POPADR: Holds the address of the POP 
instruction presently being executed. 


POP instruction: A component part of the 
POP language defined as a macro. 


POP interpreter: A program written in 
machine language for the purpose of execut- 
ing the POP subroutines; labeled POP SETUP. 


POP jump table: A table used by the POP 
interpreter in transferring control to the 
POP subroutines. Holds addresses of these 
routines. 


POPPGB: Contains the beginning address of 
the machine language code for the POP 
instructions and the POP jump table. 


POPs, POP language: A macro language in 
which most of the compiler is written. 


The subroutines used by 
opera- 


POP subroutines: 3 
the POP interpreter to perform the 
tions of each POP instruction. 


ram te The object code produced for 
the object module. 


program text: 


prune, pruning: A method of removing 
information from a roll, thereby making it 
inaccessible in subsequent operations. 


sequence of characters preceded 
comparisons 


quote: A 
by a character count; used for 


with the input data. 


initial address of the 


QUOTE BASE: The 


first quote (Parse). 


recursion: A method of call and recall 
employed by the routines and subroutines of 
the compiler whereby routine xX may call 


routine Y which, in turn, calls routine xX. 





The method of making 


releasing rolls: 
roll available 


information reserved on a 
for use by the compiler. 
reserve mark: The 1-word value placed ona 
roll as a result of a reserve operation. 


reserving rolls: A method of roll manipu- 
lation whereby information contained on a 
roll remains unaltered regardless of other 
operations involving the roll. 

RETURN: Contains the return addresses’ for 
the POP subroutines. 


roll: A type of table used by the compiler 
whose location and size are changed 
dynamically. 

ROLLBR: Contains the beginning address of 





the base table. 


roll con A term applied collectively 
to those items used in roll maintenance and 
manipulation. 





assigned to each 
for the purpose of 


roll number: A number 
roll in the compiler 
internal reference. 
roll status items: Those variables main- 
tained for each roll which contain the 
Statistics needed in roll manipulation. 


roll storage area: An area of the compiler 


in main storage that is allocated to the 
rolls. 

rung: A word of a multiword group ona 
roll. 


Several routines which 
com- 


RUNTIME operations: 
support object code produced by the 


piler. 


Save Area: An area Of the object module 
used in linking to and from subprograms. 








scalar variables: Nonsubscripted vari- 


ables. 


item which refers to the 
character 


scan arrow: An 
position of the source statement 
currently being scanned. 


The display of the 
module. 


source module listing: 


Statements constituting the source 


The assignment of main 


storage allocation: 


storage to variables used in the source 
module. 
storage map: The logical organization Of a 


program or module and its components” as 
they are maintained in main storage. (This 
map may also be displayed on an output 
device. ) 


SYMBOL 1,2,3: Halfword variables used to 
hold variable names used in the source 
module and other data. 





TAG (field): A 1-byte item that is part of 
the pointer (indicating mode and size of 
the object pointed to) and driver (indicat- 
ing mode of operation). 


temporary storage: An area of main storage 
used by the compiler to temporarily main- 
tain information for subsequent use. 
terminal errors: Errors internal to the 
compiler causing termination of compilation 
of the source module. 





TOP: A status variable maintained for each 
roll which indicates the new BASE of the 
roll when reserved information is contained 
on the roll. 


traits: The TAG field (uppermost byte) of 
a word ona roll. 


translation: The conversion from one type 
of language to another. 


WORK roll: A special roll used by the 
compiler for maintaining values temporarily 
during processing. 


WRKADR: The address maintained for the 
WORK roll that indicates the last word into 
which information has been stored; the 
"bottom" of the roll. 


WO, W1,W2,eeee? Acronyms used to refer to 
the last groups of the WORK roll. 
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Cc 
cross-reference list 139 
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ADDRESS field 
definition 258 


134,135 
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indirect 136, 259 

relative 29,138 


ADR CONST roll 

description 159 

in Exit 56 
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description 23,161 
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Allocate phase (IEYALL) 
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detailed description 44-51 
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ALLOCATION FAIL routine 42 
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Gummy 47,48 


in Allocate 48,49 
listing of 21 
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roll 26,47,146 
ARRAY ALLOCATE routine 14,45,47 
ARRAY DIMENSION roll 150 
ARRAY PLEX roll 158 
ARRAY REF roll 52,159 
ARRAY REF ROLL ALLOTMENT 14,52 
ARRAY REF ROLL ALLOTMENT routine 52 


INDEX 


ARRAY roll 

asSigning storage for 47 

description 146 

group stats for 25 
artificial drivers 40 
ASSIGNMENT STA GEN routine 54 
AT roll 54,159 


base addresses 28 
BASE AND BRANCH TABLE ALLOC routine 
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definition 259 
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position in object module 17 
use in Allocate 48 
use in Exit 57 
BASE TABLE roll 
description 146 
in Allocate 45-48 
in Exit 56 
BASE variable 23 
definition 259 
BCD roll 45 
BLOCK DATA PROG ALLOCATION routine 
BLOCK DATA subprogram 
allocation for 46 
Parse processing of 39 
BOTTOM variable 23 
definition 259 
branch table 
assigning storage for 47 
description 18 
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use in Allocate 47 
use in Exit 56 
BRANCH TABLE roll 
description 150 
in Allocate 47 
in Exit 56 
branch target label 12,18 
BUILD ADDITIONAL BASES routine 14,45, 49 
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BUILD PROGRAM ESD routine 14,45, 46 
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CALCULATE BASE AND DISP routine 
CALL LBL roll 149 
central items 
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definition 259 
description 24 
SYMBOL 24,191,259 
CGOTO STA XLATE routine 38 
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description 160 
in Exit 56 
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location 22 
COMMON ALLOCATION AND OUTPUT routine 
14,45, 47 
COMMON ALLOCATION roll 47,156 
COMMON AREA roll 155 
COMMON data 12 
COMMON DATA roll 152 
COMMON DATA TEMP roll 4155 
COMMON NAME roll 152 
COMMON NAME TEMP roll 156 
COMMON statements 
allocation for 45 
COMMON variables 
allocation of storage for 45 
listing of 21 
compiler 
arrangement 28-29 
assembly and operation of 136 
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data structures 22 
design of 9 
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initialization of 33 
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machine configuration for 9 
messages 27 
Organization of 10,14 
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purpose of 9 
receiving control 33 
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Storage configuration 15 
termination of 33,35 
COMPLEX CONST roll 143 
CONSTR register 
definition 259 
description 28 
control block area (CTLBLK) 227 
control driver 
definition 259 
description 31 
formats of 185-211 
CONVERT TO ADR CONST routine 14,52 
CONVERT TO INST FORMAT routine 14,52 
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definition 259 
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in Parse 38 
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description 26 
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data items 24,192, 259 
DATA SAVE roli 145 
data sets 
SYSIN 15,33 
SYSLIN 15,33 
SYSPRINT 15, 33 
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DATA statements 
allocation for 45 
DATA VAR roll 56,154 
DDNAMES routine 35 
DEBUG ALLOCATE routine 14,45,49 
decision making instructions 131,132 
DECK option 51 
DIMENSION statement 
allocation for 46 
variables specified on 29 
DISPLAY statement 
NAMELIST table for 18,19 
DMY DIMENSION roll 14, 46,147 
DO loops 
in Allocate 46 
in Gen 55 
in Parse 39 
in Unify 12,51,52,53 
DO LOOPS OPEN roll 
description 144 
in Allocation 46 
in Parse 39 
DO LOOP UNIFY routine 53 
DO NEST UNIFY 14,53 
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DP COMPLEX CONST roll 143 
DP CONST roll 
description 143 
general 25 
drivers 
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control 31,185-211, 259 
definition of 30 
EOE 40,41 
formats of 185-211 
operation 30, 260 
OPERATOR field 30 
plus and below phony 40,41 
TAG field 30 
dummy array 46,47 
dummy dimension 46 


END card 13 
omission of 39 
produced by Exit 57 
END STA GEN routine 54,55 
ENTRY CODE GEN routine 14,53,54 
ENTRY NAME ALLOCATION routine 14,45, 46 
ENTRY NAMES roll 54,147 
ENTRY roll 46 
EOE driver 40,41 
EPILOGUE GEN routine 14,53,54 
epilogues 12,53,54 
EQUIV ALLOCATION PRINT ERRORS routine 
14,45,47 
EQUIV MAP routine 14,45,48 
EQUIVALENCE (EQUIV) ALLOCATION roll 
47, 48,156 
EQUIVALENCE (EQUIV) HOLD roll 145 
EQUIVALENCE (EQUIV) roll 46,47,151 
EQUIVALENCE (EQUIV) TEMP roll 145 
EQUIVALENCE OFFSET roll 45,152. 
EQUIVALENCE statements 12,45 _ 
EQUIVALENCE variables | 
allocation of storage for 45 
description 18 


listing of 21 

map Of 48 

position in object module 17 
EREXITPR routine 34 
ERROR CHAR roll 184 
ERROR LBL roll 148 
ERROR MESSAGE roll 144 
error messages 21 
error recording 42 
ERROR roll 42,148 
errors 

detection of 42 

recording of 21,42 
ERROR SYMBOL roll 149 
ERROR TEMP roll 144 
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general 12 
produced by allocate 44,47,51 
Exit label list 208-211 
EXIT PASS routine 14,55 
Exit phase (IEYEXT) 
definition 259 
detailed description 55-58 
general description 13 
location in storage 15 
rolls used by 55 
exit roll 
definition 259 
description 24,161 
general 10 
in IEYROL 53 
in Parse 38 
location in storage 15 
EXPLICIT roll 149 
EXTADR register 
definition 259 
description 29 
extended error message facility 229,235 


FL AC roll 153 
FL CONST roll 143 
flags 27 
forcing strength 

definition 259 

description 30,31 

in Parse 40 

table 31 
FORMAT ALLOCATION routine 14,45,48 
FORMAT roll 48,157 
FORMAT statements 

description 20 

in Allocate 12,44, 48 

listing of 21 

position in object module 17 
FORTRAN error routine (IHCIBERH) 42, 212 
FULL WORD SCALAR roll 47,155 
FUNCTION subprogram 46,49 
FX AC roll 151 
FX CONST roll 143 


Gen label list 198-208 

Gen phase (IEYGEN) 
definition 259 
detailed description 53-55 
general description 12 
location in storage 15 
rolls used by 53 


GEN PROCESS routine 14,53 
GENERAL ALLOCATION roll 160 
general register usage 

used by compiler 28-29 

used by object module 20 
GET POLISH routine 14,53,54 
global area 136 
GLOBAL DMY roll 47,49,148 
global jump table 28,137,138 
global jumps) 137,138 
global label 136,137, 259 
GLOBAL SPROG ALLOCATE routine 14,45,48 
GLOBAL SPROG roll 

description 142 

general 42 


a Allooatve: vite 
in Exit 56 | 
GO TO STA GEN routine 55 
GO TO statements, processing of 54,55 
group 
definition 259 
description 24,25 
group stats 
definition 25,259 
description 26 
location in storage 15 
sizes 25 
group stats table 26 


HALF WORD SCALAR roll 47,152 
heading 

position in object module 17 
HEADOPT routine 35 
HEX CONST roll 154 


IBEXIT routine 223 

IBFINT routine 222 

IEYALL (see Allocate phase) 
IEYEXT (see Exit phase) 
IEYFINAL routine 35 

IEYFORT (see Invocation phase) 
IEYGEN (see Gen phase) 

IEYJUN subroutine 138 


'TEYMOR routine 34 


ITEYPAR (see Parse phase) 
IEYPCH routine 34 
IEYPRNT routine 33 
TEYREAD routine 34 
IEYRETN. routine 35 
IEYROL (see roll module) 
IEYUNF (see Unify phase) 
IF statement 37,38,39 
IHCDBUG 212,236 
IHCDIOSE 212, 229-236 
routine directory 251 
THCERRM 212,229,239 
THCFCOMH 213-223 
Subroutine directory 246 
IHCFCVTH 212,223 
subroutine directory 246 
IHCFINTH 212,239 
IHCFIOSH 212,224 
routine directory 251 
IHCFOPT 240 
THCIBERH 42,212 
THCNAMEL 212,221 
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IMPLICIT roll 153 
indirect addressing 135, 260 
indirect addressing instruction 135 
IND VAR roll 
description 141 
in Parse 37 
INIT roll 49,145 
Invocation phase (IEYFORT) 
definition 260 
detailed description 33-36 
general description 12 
location in storage 15 


jump instructions 132,133 


keep 
definition 260 
general 23 


label lists 
Allocate 193-196 
Exit 208-211 
Gen 198-208 
Parse 185-193 
Unify 196-198 
labeled statement references 12 
labels 
branch target 12,18 
detailed description 135,136 
global 135,136 
local 135,136 
mode 17,54 
LAST CHAR CNT variable 
definition 259 
description 26 
in Parse 38 
LAST SOURCE CHAR variable 38 
LBL FIELD XLATE routine 14,37,38 
LBL process routine 14,53, 54 
LBL roll 45, 46,54,153 
LEVEL ONE UNIFY routine 53 
LIB roll 140 
LITERAL CONST ALLOCATION routine 
literal constants 
description 20 
in Allocate 12,44, 45 
position in object module 17 
LITERAL CONST roll 143 
LITERAL TEMP (TEMP LITERAL) roll 155 
LOAD and DECK options 33 
LOCAL DMY roll 148 
local label 136,137, 259 
LOCAL SPROG roll 45,46,149 
LOGICAL IF STA XLATE routine 38 
LOOP CONTROL roll 52,156 
LOOP DATA roll 
description 157 
in Parse 38 
in Unify 53 
LOOP SCRIPT roll 142 


14,45, 47 


made labels 
map 
of scalars 47 
storage 21,44,50, 260 
MAP option 51 


17, 54 
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messages 
description 27 
location in storage 15 
printing of (IEYPRNT) 33 
produced by Allocate 48,49 
produced by Invocation 35,36 
produced by Parse 43,44 
minimum system configuration 9 
MOVE ZEROS TO T AND C routine 14 
MPAC1 and MPAC2 variables 
definition 259 
description 26 
multiple precision arithmetic 26 


NAMELIST ALLOCATION roll 48,49,155 
NAMELIST ITEMS roll 149,150 
NAMELIST MPY DATA roll 57,160 
NAMELIST name 

roll 48 

table for 19 


NAMELIST NAMES roll 48,149 
NAMELIST tables 
definition 259 
description 19 
in Allocate 12,44,47 


in Exit 57 

listing of 20,48 

position in object module 20 
NEST SCRIPT roll 

description 141 

in Unify 53 
NONSTD SCRIPT roll 141 


object module 
configuration of 17 
description of 17 
general register usage 20 
listing of 20, 21, 54,57 
writing of 49 


object-time library subprograms 212-240 
operation driver 
definition 259 
description 30 
formats of 185-211 
OPERATOR field 
definition 259 
description 30-32 
optimization 52, 53,259 
option table 241 
ORDER AND PUNCH RLD ROLL routine 14,55,57 


Parse phase (IEYPAR) 
definition 260 
detailed description 36-42 
general description 12 
location in storage 15 
rolls used by 37 

PASS 1 GLOBAL SPROG ALLOCATE routine 

14,45,48 

phases 
Allocate 12,15,44-51 
components of 14 
Exit 13,15,55-57 
Gen 12,15,53-55 
Invocation 12,15, 33-35 
Parse 12,15, 36-44 
Unify 12,15,51-53 
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plex 
definition 260 
description 25 
plus and below phony driver 40,41 
pointer 
ADDRESS field 29 
definition 260 
description 29 
OPERATOR field 29 
TAG field 29 
Polish notation 
arithmetic and logical assignment 
Statement 164 
arithmetic expressions 39 
arithmetic IF statement 165 
arrav references” 143 
ASSIGN statement 164 
assigned GO TO statement 164 
BACKSPACE statement 171 
BLOCK DATA statement 166 
CALL statement 172 
computed GO TO statement 165 
CONTINUE statement 165 
DATA statement 166 
debug statements 172-173 
DEFINE FILE statement 170 
definition of 259 
direct-access statements 170 
DO statement 165 
END FILE statement 171 
END statement 166 
ENTRY statement 164 
Explicit specification statements 166 
FIND statement 170 
formats 163-173 
FUNCTION statement 171 
general 10 
in Gen 12,53,54 
in Parse 13, 36,39 
input/output lists 167-168 
labeled statements 163 
logical IF statement 164 
PAUSE and STOP statements 165 
PRINT statement 169 
PUNCH statement 169 
READ statement 167,168,169 
RETURN statement 164 
REWIND statement 171 
Statement function 171 
SUBROUTINE statement 171 
unconditional GO TO statement 165 
WRITE statement 168,169,170 
POP instructions 


ADD 130 
AFS 130 
AND 130 
APH 127 
ARK 127 
ARP 127 
ASK 127 
ASP 127 
BID 134 
BIM 134 
BIN 134 
BOP 127 
CAR 128 
CLA 128 
CNT 128 


cross reference list 


detailed description 


general description 


CPO 128 
CRP 128 
CSA 131 
CSF 133 
definition 
DIM 130 
DIV 130 
EAD 128 
FAW 128 
ECW 128 
EOP 128 
ETA 128 
FET 128 
FLP 128 
FRK 128 
FRP 128 
FTH 128 
TAD 129 
IND 135 
IOP 129 
TOR 130 
ITA 129 
ITM 129 
JAF 133 
JAT 133 
Jow 133 
JPE 133 
JRD 133 
JSB 133 
JUN 133 
LCE 129 
LCF 129 
LCT 129 
LGA 131 
LGP 129 
LLS 130 
LRS 131 
LSS 129 
MOA 131 
MOC 129 
MON 129 
MPY 131 
NOG 129 
NOZ 129 
PGO 130 
PGP 130 
PLD 130 
PNG 130 
Poc 130 
POW 134 
PSP 131 
PST 130 
OSA 131 
OSF 133 
REL 134 
RSV 134 
SAD 131 
SBP 131 
SBS 131 
SCE 132 
SCK 132 
SFP 132 
SLE 132 
SNE 132 
SNZ 132 


Index 
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SOP 132 
SPM 132 
SPT 132 
SRA 132 
SRD 132 
STA 132 
STM 133 
SUB 131 
SWT 130 
TLY 131 
WOP 135 
W1P 135 
W2P 135 
W3P 135 
W4P 135 
XIT 133 
ZER 130 


POP interpreter 
definition 260 
description 136 
general 10 
POP jump table (POPTABLE) 
definition 260 
description 28,137 
location in storage 15 
POP language 
cross-reference list 139 
definition 260 
detailed description 127-138 
general description 10 
notation used 127 
POP SETUP routine 137 
POP subroutines 
assembler references to 137 
definition 260 
general 10 
location in storage 15 
POPADR register 
definition 260 
description 29 
POPPGB register 
definition 260 
description 29 
POPXIT register 
description 29 
PREP DMY DIMAND PRINT ERRORS routine 
PREP EQUIV AND PRINT ERRORS routine 
PREP NAMELIST routine 14,45, 48 
PRESS MEMORY 21, 22,193 
PRINT A LINE routine 14 
PRINT AND READ SOURCE routine 
PRINT HEADING routine 14 
PRINT TOTAL PROG REQMTS MESS routine 14 
printmsg table 35-36 
PRNTHEAD routine 34 
PRNTMSG routine 34 
PROCESS DO LOOPS routine 14,45,46 
PROCESS LBL AND LOCAL SPROGS routine 
14,45, 46 
PROCESS POLISH routine 14,39 
production of object code 
branches 175 
computed GO TO statement i175 
DEFINE FILE statement 179 
direct-access READ and WRITE statements 
179 
DO loops 175 
DO statement 175 


14,45 
14,45 


14,37 
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‘prologue 


FIND statements 179 

FORMAT statements 180,181 

formatted arrays 177 

formatted list items 177 

functions 176 

input/output’ 177 

PAUSE statement 179 

READ and WRITE statements 177 

Statement functions 176 

STOP statement 179 

subroutines 176 

unformatted arrays 178 

unformatted READ and WRITE statements 

178 

PROGRAM BREAK variable 
PROGRAM SCRIPT roll 

description 158 

in Parse 39 

in Unify 52 
program text 

definition 260 

description 20 

position in object module 17 
12,53, 54 
PROLOGUE GEN routine 
pruning 

definition 260 

description 23 
pseudo instructions 
PUNCH ADCON ROLL routine 14,55,57° 
PUNCH ADR CONST ROLL routine 14,55,56 
PUNCH BASE ROLL routine 14,55, 56 
PUNCH BRANCH ROLL routine 14,55,56 
PUNCH CODE ROLL routine 14,55, 56 
PUNCH END CARD routine 14,55,57 
PUNCH GLOBAL SPROG ROLL routine 
PUNCH NAMELIST MPY DATA routine 
PUNCH PARTIAL TXT CARD routine 
PUNCH SPROG ARG ROLL routine 
PUNCH TEMP AND CONST ROLL routine 
PUNCH USED LIBRARY ROLL routine 


45,46,47,48,49 


14,53, 54 


10,127 


14,55,57 
55,57 
55,56 
14,55, 56 
14,55,56 
14,55,57 


quick link output 136 

quote 
definition 260 
description 27 
location in storage 15 
QBASE 27 

quote base (QBASE) 
definition 260 
description 27 


REASSIGN MEMORY 185 
recursion 
definition 261 
in compiler 10 
REG roll 146 


REGISTER IBCOM routine 14,37 
register usage 

by compiler 28 

by object module 20 
relative addressing 29,137 


releasing rolls 
definition 261 
in Allocate 45 
in Invocation 35 


reserve mark 
definition 261 
description 23 
RETURN register 
definition 261 
description 29 
RETURN statement 
Polish notation for 37 
RLD cards 13,56 
RLD roll 55,56,57,156 
ROLL ADR table 
in IEYROL 53 
in Invocation 35 
location in storage 15 
use in allocating storage 22,35 
use in finding address of variable 30 
use in releasing storage 35 
roll control instructions 133 
roll controls 
general 21 
roll module (IEYROL) 
definition 261 
detailed description 53 
general description 13 
location in storage 15 
roll statistics 
BASE, BOTTOM, TOP 22 
location in storage 15 
roll storage area 
definition 261 
general description 21 
ROLLBR register 
definition 261 
description 29 
rolls 
ADCON 57,145 
ADR CONST 52,56,159 
AFTER POLISH 23, 37-40, 42,53,54,161 
allocating storage for 21, 22,34 
ARRAY 26,47,146 
ARRAY DIMENSION 150 
ARRAY PLEX 158 
ARRAY REF 52,159 


AT 54,159 
BASE TABLE 45-48,56,146 
BCD 45 


BRANCH TABLE 47,56,150 
BYTE SCALAR 47,151 

CALL LBL 149 

CODE 22,53,54,56,160 
COMMON ALLOCATION 47,156 
COMMON AREA 155 

COMMON DATA 152 

COMMON DATA TEMP 155 
COMMON NAME 152 

COMMON NAME TEMP 156 
COMPLEX CONST 143 

DATA SAVE 145 

DATA VAR 56,154 
definition of 261 
detailed description 140-162 
DMY DIMENSION 14, 46,147 
DO LOOPS OPEN 39, 46,144 
DP COMPLEX CONST 143 

DP CONST 25,143 

ENTRY 46 

ENTRY NAMES 54,147 

EQUIV ALLOCATION 43,47,48,156 


EQUIVALENCE (EQUIV) 46,47,151 
EQUIVALENCE (EQUIV) HOLD 145 
EQUIVALENCE (EQUIV) TEMP 145 
EQUIVALENCE OFFSET 45,152 
ERROR 42,148 

ERROR CHAR 144 

ERROR LBL 148 

ERROR MESSAGE 144 

ERROR SYMBOL 149 

ERROR TEMP 144 

EXIT 10,15, 24, 38, 53,161, 259 
EXPLICIT 149 

FL AC 153 

FL CONST 143 

FORMAT 48,157 

formats 140-162 

FULL WORD SCALAR 47,155 
FX AC 151 

FX CONST 143 

GENERAL ALLOCATION 160 
general description 10,21 
GLOBAL DMY 47,449,148 
GLOBAL SPROG 42,48,56,142 
HALF WORD SCALAR 47,152 
HEX CONST 154 

IMPLICIT 153 

IND VAR 37,141 

INIT 49,145 

LBL 45,46,54,153 

LIB 140 

LITERAL CONST 143 

LITERAL TEMP 155 

LOCAL DMY 148 

LOCAL SPROG 45,46,149 
location in storage 15 
LOOP CONTROL 52,156 

LOOP DATA 38,53,157 

LOOP SCRIPT 142 

NAMELIST ALLOCATION 48,49,155 
NAMELIST ITEMS 149,150 
NAMELIST MPY DATA 57,160 
NAMELIST NAMES 48,149 
NEST SCRIPT 53,141 

NONSTD SCRIPT 141 

POLISH 36-42,53,54 
PROGRAM SCRIPT 39,52,158 
pruning of 23 

REG 146 

releasing of 35,45, 260 
reserving of 23,261 

RLD 55,56,57,156 

SCALAR 47,48,154 

SCRIPT 36,37,52,53,157 
Size limitations 22 
SOURCE 37,38,140 

special 24 

SPROG ARG 56,147 

STD SCRIPT 144 

SUBCHK 49,160 

TEMP 144 

TEMP AND CONST 45,55,57,144 
TEMP DATA NAME 150 

TEMP NAME 36,143 

TEMP PNTR 153 

TEMP POLISH 151 

used by Allocate 44 

used by Exit 55 

used by Gen 53 
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used by Parse 36 

used by Unify 52 

USED LIB FUNCTION 48,55,152 

WORK 10,15, 24, 38-41, 53, 54,161, 261 
rungs 

definition 261 

description 24 


save area 

assigning storage for 47 

definition 261 

position in object module 17 
SCALAR ALLOCATE routine 14,45,47 
SCALAR roll 47,48,154 
SCALAR routine 14 
scalar variable 

definition 261 

listing of 21 

position in object module 17 
scan arrow 

definition 261 

description 26 
scan control variables 26,27 
SCRIPT roll 

description 157 

in Parse 36,37 

in Unify 52,53 
source module listing 

definition 261 

description 20,42 

format of 42 
SOURCE option 36 
SOURCE roll 

description 140 

in Parse 37,38 
special rolls 24 
specification statements 35 
SPROG ARG ALLOCATION routine 14,45,48 
SPROG ARG roll 56,147 
STA FINAL routine 14, 37,39 
STA GEN FINISH routine 14,54,55 
STA GEN routine 14, 54,55 
STA INIT routine 14, 38 
STA LBL BOX 54 
STA RUN TABLE 54 
STA XLATE EXIT routine 38 
STA XLATE routine 14, 37, 38,39 
START ALLOCATION routine 14 
START COMPILER routine 14,37 
START GEN routine 14,53 
START UNIFY routine 14,52 
STATEMENT PROCESS routine 14,37, 39 
status variable 23 
STD SCRIPT roll 144 
STOP statement 

Polish notation for 37 
storage map 

compiler 14 

definition 261 

description 21 

object module 17 

produced by Allocate 44,50 
SUBCHK roll 49,160 
subprogram addresses 

position in object module 17 
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subprogram argument lists 
position in object module 17,51 
SUBSCRIPTS FAIL routine 42 
SYMBOL item 24,261 
Syntax error 42 
SYNTAX FAIL routine 38,42 
system names 11 


tables 
base 17,47,56, 259 
BASE, BOTTOM, and TOP 23,28 
branch 18, 46,56 
global jump 28,137 
group stats 25,26 
NAMELIST 12,18,19,20,44,48,49,57, 260 
POP jump 15, 28,136, 260 
printmsg 35 
ROLL ADR 15, 22, 28, 34, 53 
STA RUN 54 
unit assignment 225,232 
TAG field 
definition 261 
description 29-31 
TEMP AND CONST roll 
description 144 
in Allocate 4&5 
in Exit 55,57 
TEMP DATA NAME roll 150 
TEMP NAME roll 
description 143 
in Parse 38 
TEMP PNTR roll 153 
TEMP POLISH roll 151 
TEMP roll 144 
temporary storage and constants 
description 20 
position in object module 17 
TERMINATE PHASE routine 54,55 


termination of compiler 33,35 


TIMEDAT routine 35 
TOP variable 23 
definition 261 
TRACE option 54 
transmissive instructions 127-130 
TXT cards 
general 12 
produced by Allocate 44,49,51 
produced by Exit 55,56,57,58 
type statements 
allocation for 46 


Unify label list 196-198 
Unify phase (IEYUNF) 
definition 260 
detailed description 51-53 
general description 12 
location in storage 15 
rolls used by 52 
unit assignment table (IHCUATBL) 225,232 
unit blocks 224,230 | 
USED LIB FUNCTION roll 
description 152 
in allocation 48 
in Exit 55 


variables status 23 


ANSWER BOX 26, 38,259 TOP 23,261 

AREA CODE 45, 56,57,146 

BASE 23,259 WORK roll 

BOTTOM 23,259 definition 261 
COMMON 21,46 description 24,161 
CRRNT CHAR 26, 38, 259 general 10 

CRRNT CHAR CNT 26, 38,259 in Exit 57 
EQUIVALENCE 18, 21,44,45,48 in Gen 54 

LAST CHAR CNT 26, 38, 260 in IEYROL 53 

LAST SOURCE CHAR 38 in Parse 38,40,41 
MPAC1 and MPAC2 26, 260 location in storage 15 
PROGRAM BREAK 45, 46, 47, 48 WRKADR register 

Scalar 18,21, 261 definition 261 
Scan control 26, 27 description 29 
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